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Abonne a CalvaCom ? 



Clv_Pom's ( application "Qualite Pom's" pour le Macintosh, est un 
logiciel complet pour I/optimisation de vos connexions au serveur de RCI 



Enregistrement des 
consultations dans des fichicrs 
de type MacWrite 

Exportation de messages, de 
procedures, de programmes et 

de fichiers 



Mode 



✓Enregistrement de tentes 
Enregistrement de programmes 

EHportation de testes procedures 
Exportation de programmes 



Fichier 



Nouueau. 



9€N 



Suppression des lignos ' — ' 

✓ {/A Recodage e, a, etc. 
6* / 



Impression simultanee... 




Telechargement 
de programmes et 
fichiers 



Rafflnement : 
en quittant ClvJPom's, on 
peut se dinger vers le bureau 
clectronique, vers une autre 
application mais aussi en 
'emportant' le dernier fichier 

recu... 

200,00 F TTC franco, bon de 

commandc page 74. 
CLV Pom's existe egaJement 
en version Apple // pour 
utilisation avec un Minltcl 



Suppression eventuelle des lignes de 
message du serveur 

Option telescripteur (impression des 
depeches de l'AFP lorsqu'elles 
'tombent' par exemple] 



Source JfBSBBBBDLL^ 






Minitel 








Fichiers 'Pom's 27'... 




Possibility de traitement des 
fichiers crees avec le 
programme 'Minitel 27* 



Quitter J^lJSiNHBllBL 
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uers le 'Finder' 








juers une application... 
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Pom's est une revue independante non 
tauachec a Apple Computer, Inc. ni 
a Apple Computer i-rance S.A.K.L. 
Apple, le lago Apple, Mac et le 
logo Macintosh sont des 

marques deposees 
d'Apple Computer, Inc. 
IBM est une maxque deposee de 
International Business Machine. 
PC et AT sont des marques deposees 
dc la SochStc IBM. 




Grand rendez-vous annuel des Apple-maniaques, 
Apple-Expo vous propose cette ann.ee d'entrer 
gratuitement si vous etes porteur de Pom's, bonne 
nouvelle. 

Plus qu'une simple Expo, cette fete devrait nous 
reserver quelques grandes nouvcautcs : les 
HyperCard, MultiFindcr et autre ImageWriter LQ 
mais on nous promet egalement la demonstration 
d'un reseau utilisant des fibres optiques, de 
multiples peripheriques pour les handicapes (tablette 
graphique, ecran tactile...) et le resultat de mille 
ceuvres de developpeurs. Bien en rendu, Pom's vous 
y accueillera. 

Ce numero ? Toujours en evolution, nous avons 
ouvert Pom's a 1'assembleur ORCA/M - GS oblige - 
au Turbo Pascal sur Macintosh, et meme a une grille 
de mots exoises, objet d'un petit concours. Autre 
nouveaute, voire courrier electronique : nombreux 
son I nos lecleurs qui, 24 heures sur 24, deposent dans 
noire boile a lettres CalvaCom questions, remarques 
et suggestions ; deux pages de ce numero en sont le 
reflet 

Pom's se veut une revue complete et variee et le pari 
est encore gagne pour cette re n tree : trois bancs 
d'essai, deux commandes externes ProDQS, un 
etonnant ecran 'virtuel' en DOS 3.3, deux 
programmes Pascal, un petit montage electronique 
pour detecter la sonnerie du telephone, un 
programme WPL... Deux mois enfre chaque 
parution, ce n'est pas si long pour tout exploiter ! 

Herve Thiriez 



Pom's n° 32 



Ilk ]f° tT " e propos est 
|fl§|k Id'apporter ici une 
I I solution pour trans- 

I ^8^ aute resolution 
vJm*, 1§ (images classiques 
sur la gamme Apple ][, ][+ , //e, 
//c) en images de type GS Paint. 
Les systemes de codage de ces 
deux types d'images sont tres 
differents. 

Images classiques 

• la resolution d'une image 
IIGR classique est de 280 
points horizontaux sur 192 
points verticaux ; 

• un point ecran est code sur 1 
bit (allume - eteint) ; 

■ un octet sert a coder 7 points 
(sur les 7 bits de plus faible 
poids, le bit de poids fort 
servant au codage de ia 
couleur) . Une ligne ecran est 
done composed de 40 octets 
(40 octets * 7 bits = 280 
points) ; 

• l'organisation dc la page HGR 
est assez compliqu6e car ies 
adresses des premiers octets de 
chaque ligne ne sont pas en 
ordre regulieremem croissant 
(ainsi le 41 erne octet au lieu 
d'etre au debut de la deuxieme 
ligne est au debut dc la 64cmc, 
le 81eme au debut de la 
128feiue ligne ; tout se passe 
comme si l'e*cran dtait divise en 
3 zones de 64 lignes : pour 
plus dc details voir dans le ler 
numero de Pom's ! article sur 
l'organisation des pages 
graphiques) ; 

• quoi qu'il en soit on peut 
obtenir l'adresse d'un point par 
la routine Moniteur HPOSN 
(SF411) apres avoir charge 
comme suit les registres : 

X & Y : position horizontale 
du point (faible-fort) 
A : position verticale 



le resultat est obtenu en lisant 
aux adresses $26 et $27. 



Images de type 
GSPaint 

Le mode de construction d'unc 
image de type GSPaint est plus 
simple ; 

* la resolution d'une telle image 
est de 320 points horizontaux 
sur 200 points verticaux ; 

* un point ecran est code sur 4 
bits (16 couleurs = 2 A 4 
combinaisons de 4 bits) ; 

* un octet sert done a coder 2 
points (et on a 160 octets sur 
une ligne) ; 

* l'adressage est on ne peut plus 
simple : les 160 premiers octets 
pour la lerc ligne, les 160 
suivants pour la 2eme ligne, 
les 160 suivants pour la 3eme 
ligne, etc. ; 

* un ecran GSPaint se compose 
done de 32000 octets (200 * 
160) qui occupent la zone 
$E1/2000 a SE1/9CFF mais cn 
fait le fichier sur disque en 
occupe 32768 car viennent 
ensuite les Scan Line Control 
Block et palettes (voir Pom's 
31, Pecks et Pokes longs). 

Transformations 
d'images 

La transformation d'une image 
classique en une image de type 
GSPaint, grace au programme 
binaire que nous propos ons 
s'effectue cn plusicurs crapes : 

* par manque dc place en 
memoire principale (Bank 00) 

pour y charger I'image HGR 
(4000 octets) et y reconstruire 
i'image type GSPaint (32768 
octets), tout en gardant de la place 
pour les programmes, on 
transfere I'image a transformer en 



Bank 01 (memoire auxiliaire de la 
carte 80 colonnes) grace a 
AUX.MOVE ($C311); 

* pour chaque ligne ecran, on 
calcule l'adresse de ses 7 

premiers points (e'est a dire du 
premier octet) ; 

* 1'octet qui s'y trouve ainsi que 
le suivant sont decomposes en 

leurs 14 bits significatifs ; 

* puis on reproduit 4 fois chaque 
bit , ce qui nous dnnne 4*14 

= 56 bits , que Ton reconibine 8 
par 8 pour faire 7 octets, qui sont 
alors stockds, en memoire 
principale a partir de $1000, les 
uns a la suite des autres ; 

* on passe ensuite aux 14 points 
suivants, puis a la ligne 

suivante, en incrementant a 
chaque fois l'adresse de stockage 
des 7 octets ; 

* une palette standard de 
couleurs est crfiee en $8E00. 

Enfin, grace a la routine MOVE 
que nous avons ajoute au 
programme binaire, le tout est 
deplace en Bank El a partir de 
l'adresse $2000 pour pouvoir etre 
visualise. 

Les fichiers qu'utilisent GSPaint 
sont de deux types : 

* type SCO, format compacts , 

* type $C1, format e"cran. 

Ce dernier format a ete retenu et 
e'est pour pouvoir sauvcr sous 
cette forme qu'il faut au 
prealable creer un fielder de type 
$C1 par I'ordre Basic : 

CREATE FICBf T$C1 

avant de sauvegarderpar : 

BSAVE FICH, A$1000, L32768 

Tout cela est effectue par le 
programme Basic TRANS- 
FORMEUR apres qu'il vous ait 
demande le nom de I'image a 
charger et qu'il vous ait propose 
d'en respecter ou d'en 
bouleverser les couleurs. 
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Vincent & <B&rnard c TOM f E c NO 



A noter que I'image finale 
n'occupe pas toute la largeur de 
l'ecran GSPaint (marge droite de 
40 points et marge inferieure de 8 
points) en raison de la difference 
enire Ies 320/200 points de la 
page SHGR du IIGS et les 
280/192 points de J'image HGKJ. 
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Programme 

TRANSFORMEUR 

10 D$ = CHR$ (4): PRINT D$ "BLOAD HGR.SU 
FHGR.C": PRINT : PRINT D$"PR£3" >. PRIN 
T : ONERR GOTO 125 

15 HOME : TEXT : VTAB 2; HTAB 3: INVERS 
E : PRINT "TRANSFORMATION D 'IMAGE CIA 
SSIQUE HGR EN IMAGE DE TYPE GS/ PAINT 
POUR II GS" 

20 NORMAL ; CALL - 959; PRINT : HTAB 2 
8: PRINT " (NE MARCHE QUE SUR II GS)": 
FOR I = 1 TO 3.- POKE 45204,1 i 4 : FO 
KE 49186,1 f 12: FOR D = 1 TO 300: NE 
XT : NEXT : REM POKES POUR FAIRE JOL 



I 

25 VTAB 8: INPUT " NOM DE L 

•IMAGE A TRANSFORMER ( RTN - CATALOG 
} ";IT$: IF IT? = CHR$ (3) THEN 125 
30 IF IT$ = "" THEN HOME : PRINT : PR1 

NT D$"CAT": GET A$ : HOME : GOTO 25 
35 HGR : PRINT D$"BLOAD"IT$",A$2000":AD 
= 37302: POKE AD, 15: POKE AD + 3,6: 
POKE AD + 6,10: POKE AD + 9,4: POKE A 
D + 12,3: POKE AD + 15,0 
40 VTAB 22; PRINT " RESPECT DES COULEUR 
S ? (0/N) "; : GET A$: IF A$ - "N" THE 
N 65 

45 HOME : VTAB 22; PRINT » OK POUR TRAN 
S FORMA TI ON ? (0/N) ";: GET A$ : IF A$ 
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< > "O" THEN TEXT : HOME ; GOTO 25 
50 CALL 36Hbi: PRINT : POKE 49193,161; 
CALL 37363: GET A$ : POKE 49193,65: PR 
INT " ON SAUVEGARDE "; IT$; " . GS ? (0/N 
) ";: GET A$ : ON A$ < > "O" GOTO 15: 
NS$ m TT$ + ".GS": PRINT D$ "CREATE "NS 
$",T$C1" 

55 PRINT D$"BSAVE"NS$",T$C1,A$1000,L327 
68": HOME : TEXT : VTAB 15: HTAB 3: I 
NVERSE : PRINT NS$/ " EST MAINTENANT A 
CATALOG": PRINT i HTAB 8: PRINT "ET 
LISIBLE SOUS GS/PAINT": NORMAL 

60 END 

65 PRINT :T = 1 
70 IF T 1 TREN CL$ 
75 IF T = 2 THEN CLS 
8 IF T = 3 THEN CL$ 
85 IF T = 4 THEN CLS 
90 IF T - 5 THEN CL$ 
95 IF T = 6 THEN CL$ 
100 IF T > 6 THEN 
105 VTAB 22: CALL 



"NOIR":IN = 15 
"VIOLET": IN =12 
"BLEU"; IN = 9 
"VERT": IN * 6 
"ORANGE" ; IN = 3 
"BLANC": IN = 
HOME : GOTO 45 
- Q58: HTAB 12: PRTN 
T " QUELLE NUANCE POUR TRADUIRE LE "; 
CLS; " ( RTN - NO CHANGE ) " 
7 1 PRINT " = Noir , 1 = Gris fonce 
, 2 - Bzun , 3 - Violet , 4- Bleu fo 
nee , 5 = Vert fance , 6 = Orange , 7 
= Rouge , 9 = Jaime , 10 = Vert clai 
r , 11 - Blev clair , 12 = Mauve , 13 

= Bleu moyen , 14 - Gris clair , 15 
= Blanc"; 



115 VTAB 21: HTAB 72: INPUT CO$:T = T # 
2; ON CO$ - "" GOTO 70: CO = VAL (CO 
$) : IF CO > = OR CO < 16 THEN POK 

E AD + IN, CO 
120 GOTO 70 

125 ER = PEEK (222) :LI = PEEK (218) + 
PEEK (219) * 256:ER$ « "Y a uzi probl 

erne en liffne " + STRS (LI) : IF ER = 

255 THEN HOME : END 
130 IF ER = 6 OR ER = 7 THEN ER$ = "Err 

eur sur le nam du Fishier ou du Volum 

e" 

135 IF ER = 4 THEN ER$ = "Disque proteg 

6 era 6oriture" 
140 IF ER = 3 OR ER = 8 THEN ERS = "Err 

eur d 'entree/sortie" 
145 IF ER = 9 THEN ER$ = "Pas assez de 

place sur ce disque": PRINT D$ "DELETE 

"N5$ 

150 IF ER = 19 THEN ER$ = "Fichier d£ja 

existant aur le disque" 
155 HOME : VTAB 23: HTAB INT ( (80 - L 
EN (ER$) ) / 2): PRINT ER$/ CHR$ (7); 
FOR D = 1 TO 3000: NEXT : HOME : TEXT 
: GOTO 25 

160 REM EES POKES AD (LTGNES 35 ET 11 
5) RETABLISSENT OU CHANGENT LES COULE 
URS f CALL 36864 = ADRESSE DU PGM BIN 
., CALL 37363 = ROUTINE METTANT L'l 
MAGE EN $E1/2000 



Source HGR.SUPHGR.S 

Assembleur ProCODE 



uposn 

GBASL 
GBASH 



SF4U 

$26 

$27 



ProDOS 



*.' rOANSlURMATlON D' IMAGES t* 

*! NCR -> SHGR format GS »* 

*( Tomsoftv&re JUItt 1987 !* 

*! ASSEMBLEUR PFOCODE t* 

", f BIG MAC Compatible ) !* 



**jt#**jr****jt***# 

* PROGRAMME ' 



ORG $9000 





* 


INITIALISATION DES 


ADRESSES * 
* 






$F9 


















FX 


$FA 


r 


ciumcLu d'uetec dans Id Liqfief£ 




LDA 


£SOS 








LO.DS 


$PD 








STA 


py 








HI.DS 


SEE 








STA 


LO.DS 








FXSST 


IBB 








STA 


MP. OL 








SECND 


5Ef 








STA 


ftP.FL 








CASE 


$FF 




Qq adresses de stoeftige. . . 




STA 


MA.OL 








nr.rr.T m 


SG 




. . . rio - danne&s. . . 




LDA 


£SZ0 








BIT 


¥18 


} 


...pendant 1 'operation 




STA 


MP, OH 








COVL 


*7 


; 


BIT codartc la couleur 




STA 


MA. OH 








RANG 


$8 




colonne paixe/impaire 




IDA 


tftO 








RTT1 


$9 








STA 


MP. FH 








BITS 


SCE 




pixel d 1 'etutfe 




LDA 


£$10 




; L' image GS sera stockee a 


B1T3 


iff 




pixel d'apres 




STA 


HI.DS 




1 partir de $1000 en fieitr. princ. 


MP. OL 


S3C 




Origins de la 














MP. OH 


$3D 




. . . Tone a transferrer 


* 


TRAtlSFERT IMAGE EH 


MEM. AUX . '■ 




MP. Ft 


S3E 




Fin de la zone . . 


* 












MP.FH 


33F 




. . . a transterrer 














MA. OL 


$42 




OriQine de la . . , . 




SEC 






S R&t&mi*; A T pniir- i-i-an.iff>rl- ct* 


MA. OH 


$43 




...lone destination 




JSR 


AUX. MOVE 


f la Mem Print;. -->Mem 




AUX. MOVE = 


SC311 


















PALETTE - 


fSEOO 






* 


BOUCLE SUR 


L ' IMAGE 


* 
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* 




* 






STA 


SECND 
















JSR 


RECONS 
















INX 




/ 


X=2 


DEBUT 


LDA 


to 






LDA 


C01 








STA 


PX 






JSR 


DECAL 








JSR 


ADRESSE 






STA 


FIRST 
















INX 




J 


X=3 












LDA 


£00 
















JSR 


DECAL 








hot 


£SUU 






STA 


SECND 








HEX 


AF 


! 


OPCODE DE LDA LONG 


JSR 


RECONS 






ADIM 


HEX 


oooa 





m LO ET HI DE L ' OCTET A ETUDIER 












HEX 


01 


9 


DANS LA BANK 01 ( - MEM.AUX.) 


INX 




t 


X-4 




JSR 


LABO 






LDA 


£01 








LDA 


ADIM 






JSR 


DECAL 








STA 


ad mi 






STA 


FIRST 








STA 


ADIM1 






INX 






X~5 




INC 


ADIM2 






LDA 


LOO 








INC 


AD I Ml 






JSR 


DECAL 








INC 


AD I Ml 






STA 


SECND 








LDA 


ADIMrl 






JSR 


RECONS 








STA 


ADIM2+1 
















STA 


ADIMl+1 






INX 




J 


Jf=6 












LDA 


£01 






' RECONSTRUCTION DES 7 


OCTETS ' 


JSR 


DECAL 
















STA 


FIRST 








IDA 


COX 


t 


pfitir rfspprrtpr In frniiTpur fin 












STA 


BIT2 


1 


1 9 plied <ic cfiaqjc licfflc 


HEX 


AF 


J 


OPCODE DE LDA LONC 




LDA 


BIT 




ADmi 


HEX 


0000 


J 


lur OCTET A DECORTIOOEB 




STA 


BITS 






HEX 


01 


! 


EN BANK 01 












JSR 


LABO 






OSBSEC 


LDX 


£01 
















LDA 


BIT+7 






LDX 


COO 








STA 


cavL 






LDA 


£00 








LDA 


£01 






JSR 


DECAL 








JSR 


DECAL 






STA 


SECND 








STA 


FIRST 




1* pixel d'un octet CS/PAINT 


JiK 


KECUNS 








MX 




! 














LDA 


£00 






INC 


ADIM1 








•JSR 


DECAL 






INC 


ADIM1 








STA 


SECND 




2° pixel de 1 'octet GS/PAINT 


INC 


ADIM2 








JSR 


RECONS 






INC 


ADIMZ 
















LDA 


AOIM1 








INX 




i 


Jf-J 


ONE 


NINC 








LDA 


£01 






INC 


ADIM1-H 








JSR 


DECAL 






INC 


ADIM2+1 








STA 


FIRST 




NINC 


INC 


PX 








INX 




/ 


X=4 


LDA 


ex 








LDA 


LOO 






CMP 


£20 








JSR 


DECAL 






BEO 


NEXT 








STA 


SECND 






JMP 


DEBSEC 


1 


en paeec dun ttutrca points 




JSR 


RECONS 




NEXT 


CLC 


















LDA 


LO. DS 








INX 




> 




ADC 


120 








LDA 


£01 






STA 


LCDS 








JSR 


DECAL 






ONE 


NO, INC 








STA 


FIRST 






INC 


Hi. as 








lux 






#=£ NO, INC 


INC 


PY 








LDA 


COO 






LDA 










JSR 


DECAl 






CMP 


£192 


t 


derniere ligne ? 




STA 


SECND 






BEQ 


CREPAL 




si oui, creation palette. 




JSR 


RECONS 






JMP 


DEBUT 







* DECALAGE VERS LE PIXEL SUIVANT * 



AD I MI 



HEX 


AF 


1 


OPCODE DE LDA LONG 


* 


* 


HEX 


oooa 


f 


fcnc OCTET A DECORTIOVES 






HEX 


01 


i 


EN BANK 01 


DECAL Sl'A 


HANO 


JSR 


LABO 






LDA 


5 1 T2 










STA 


BIT1 


LDX 


£00 






LDA 


BIT3 / pixel suiv&nt 


LDA 


£01 






STA 


BIT2 


JSR 


DECAL 






LDA 


BIT.X 


STA 


FIRST 






STA 


BIT! 


INX 




i 


x-i 


JSR 


CRECOUL 


LDA 


BIT+7 






RTS 




STA 


COUL 










LDA 


COO 






* CREATION DE 


LA PALETTE DE COOLEURS * 


JSR 


DECAL 






4 


r 
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U>X 
LDA 

INX 
CPX 
BNE 
RTS 



LOO I Creation palette GS, PAINT 

TABLE, X / La palette standard 

PALETTE, X ; est composie 

t <fea 32 o-Gtcts dc 1.2 tjbje 

132 i ci dessoas A ralson ds 

CREPAL+2 1 2 octets par couleur 



S t etc.. ■ voire dcs valatirs de 
COHjeyrs C OCaieme nr. dlf fecsni-vs 



* RECONSTRUCTION D'UN OCTET GS/PATN? 1 



RECONS 



JYSBLfi ffK* OQ00770741082C07 
HEX OF008O00700FOO0O 

hex A90FFonFF.nnnnFm 

HEX AFOD&FO 7CC0CFF0F 
* LABORATOIRE * 



* DISSECTION D'VN OCTET - 



STA CASE 



J 1 ""octet est: rsnge dsns une (rase 



RETOUR 



LDA 


FIRST 


ASL 




ASL 




ASL 




ASL 




STA 


OCTET 


CLC 




LDA 


secnd 


ADC 


OCTET 


STA 


ilo.os) , r 


INC 


LO.DS 


TJ3A 


T&.ns 


BNE 


RETOUR 


INC 


HI .US 


RTS 





premier pixel de 1 'octet 



,- second pixel de 1 "octet 

; fHI.DS LO.DSi : adresse oct 
GS/PAIffT reeanstieue. 



ROT 



PAIR 



IMPAIR 



EGWN 



BLANC 



VERT 
BLEU 



LDX 


£00 
















LSR 


CASE 


iBIT de Jreite va dans la reteiwe 












LDA 


COO 






' CALCUL 


DE L' ADRESSE DU PREMIER OCTET D'UNE 


L1GNE 


ADC 


£00 




dvnc Accumuidteur — retcnue 












STA 


BIT,X 


I 


le BIT est mis de cote 












INX 








ADRESSE 


LDA 


PY 






CPX 


£09 




dernier BIT 7 




LDY 


LOO 






BNE 


ROT 








LDX 


£00 
















JSR 


HPOSN 






RTS 










LDA 


GBASL 
















STA 


AD1M 
















LDA 


GBASH 






DE LA COULEUR 


D'UN PIXEL PGR ' 




STA 


ADIM+1 












* 




RTS 








LDA 


U1T2 




Hit du pixel en etude 












CMP 


£00 










BNE 


EGUN 






* ROUTINE MOVE POUR TRANSFERER L' IMAGE * 




DDA 


BIT1 




Bit du pixel precedent 


• DE 


$00/ 1000 VERS 


SE1/2000 * 




CMP 


LOO 










BEQ 


NOIR 
















LDA 


BJTJ 




Bit du pixel suivant 


COMF1 




306 


iCOMPTEUR 256 OCTETS 




CMP 


LOO 






C0MP2 




$D7 


tCOMPTEUR 1 28*25 € 




BEQ 


hoir 
















LDA 


RANG 
















CMP 


£02 






MOVE 


LDA 


too 






BEQ 


IMPAIR 








STA 


C0MP1 






LDA 


COOL 








LDA 


fl?8 






CMP 


LOO 








STA 


C0MP2 






BEQ 


VIOLET 








LDX 


£00 






BNE 


BLEU 






T0VR1 


LDY 


£00 






IDA 


COUL 
















CMP 


LOO 






SOURCE 


hex 


AFO010OO 


i LDA Bfi BANK 00 




BEQ 


VERT 
















Brtfc' 


ORANGL 






DESTIN 


HEX 


8F0020E1 


; STA EN BANK El 




LDA 


hit: 




Bit du pixel precedent 




INC 


DESTINJ-1 






CMP 


rm 








INC 


SOURCE-tl 






BEQ 


BLANC 








INY 








LDA 


HI T3 


e 


Bit du pixel suivant 




CPY 


cmpi 


:25S OCTETS ? 




CMP 


COX 








BNE 


TCUP2 *2 






BEQ 


BLANC 








INC 


DESTIN+2 






LDA 


RANG 








INC 


50URCE+2 






CMP 


£01 








TNX 








BEQ 


PAIR 








CPX 


C0MP2 


,120° BLOC DC 256 ? 




SHE 


IMPAIR 








VNL 


TOUR1 






LDA 


£15 


f 


les IS couleurs GS/PAIHT sunt 




LDA 


f.00 


,-nw RFnm.TT. . . 




RTS 






codees camme suit ; 




STA 


DESTIN 11 


rlcs fldrcajes SOURCE, 


re . . 


LDA 


toe 




HOIR = CRIS FONCE - I 




STA 


SOURCK-H 


; DESTIN etwK? elles 




RTS 






MARROW = 2 VIOLET = J 




LDA 


£$20 


; eta ient. . . 




LDA 


£10 




BLEU FONCE = 4 VERT FONCE = 5 




STA 


DESTIN+2 


i J ! f'^pj f C . . . 




RTS 






ORANGE = £ ROUGE = 7 ROSE = 3 




LDA 








LDA 


£04 


/ 


JAUNE - S VERT CLAIR — 10 




STA 


SQVRCE+2 






RTS 






BLEU CLAIR =11 MAUVE = 12 




RTS 








LDA 


£03 




BLEU MOY. =13 GRIS CLAIR =14 










RTS 






MANC = IT 


A * * # * * * * # # Jt afc * I jt AAA 




LDA 


£00 


r 


Dans les LDA ci contre vous 


* 




V. et B 


. TQMENG 


* 


RTS 






pouvez remplacer 6 par 7,10 par 





10 
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n guise de suite au 
programme du n° 
22 de Pom's 
(dessins de courbes 
fractales sur Macintosh) et pour 
que 1'Apple // ne soit pas en reste, 
voici un programme qui profile 
pleinement de la recursivite du 
Pascal pour aller un peu plus loin 
dans les espaces non entiers. 

Le programme Recmsives 
propose huit options : 

Courbe de Von-Koch 

La courbe fraciale la plus connue. 
(Se reporter au Pom's 22 pour sa 
construction) 

Triangle 

Une autre fractalc dans laquelle 
chaque segment : 

est remplace par : 



en changeant a chaque fois le 
sens de rotation. 

Dragon 

Cette courbe illustre ce que Ton 
obticnt en pliant une bande de 
papier un certain nombre de fois 
{2 par exemple) : 



C 



et cn la depliant de fag on que 
chaque pliure forme un angle 
droit : 



ce qui donne la courbe : 




A noter que les ordres proposes 
pour cette courbe vont de 1 a 6 
mais que 1'ordre reel vade 2 a 12 
par pas de 2. 

Courbe de Peano 

Le principe est le suivant : un 
segment : 

est remplace par : 




\ / 



et chaque petit segment obtenu 
subit le meme traitement. On 
obtient une courbe fermee en 
appliquant cette m&hode a un 
carre et la courbe obtenue tend a 
remplir un autre carre. 
Ilelas, la haute resolution de 
1'Apple // est bien vite prise en 
defaut. 

La courbe de Sierpinski 

(traduite d'un programme en 
langage C paru dans Micro- 
Systemes) : elle utilise -1 
procedures mutuellernent recur- 
sives pour calculer les 
coordonnees de chaque sommet. 

Hexagune 

Un hexagone qui contient des 
hcxagoncs qui contiennent des 
hexagones . . . 

Dentelle 

On partage un carre en 9, on 
inverse la couleur du centre et on 
recommence sur chaque petit 
carre. . . 



Sytvie Qattet 




Carres 

Un carre dom les sommets sont 
prolonges par des carres plus 
petits dont les sommets... 



Impression 

Si vous disposez d'un 
programme de dump sur 
imprimante, il vuus suffit de 1c 
placer en librairie. Dans le cas 
contraire, toutes les instructions 
concernant l'impression doivent 
etre supprimees du source. 



Sur les disquettes 
Pom's... 

,..les fieluers sont transferables 
sur votre disquette Pascal 

- depuis la face DOS grace a 
1'utilitaire Basic-Pascal livre" 
avee ; 

- deputs la face PrnDOS grace a 
1'utilitaire Universal Pile 
Conversion £dite par Quality 
Software. 
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to 



Programme RECURSIVE.TEXT 



(*$$+*> 



Syivle GALLET 



program courbe4^_ recurs i voe / 

Uses tltrt legrsphlcs, d\Jmp_hgr / (* si Volts .avez tin programme de dump hgr paUr 

votre imprimdrtt*/ 11 est temps- d 1 * ie mettM 

en Ukraine.' i'inon, il £aut stispprimet tout 
ce gui concerne cette instruction *J 

er^n^t ji^x-gr^ = 20 i (* 20 pour un ectfl/j £0 ccl^nnes , pour ^0 coZo/m** *) 
type c^iozdeca = set of cftar ; 
courbe = record 

nam, niv ; string 
end f 

var liste : array {l r ,S} cf cotirbe / 
i .■ integer / 

efl, cf* 4on f Jtejije, repen^e ; thai" ^ 
papier ; text jf 



t* 



pre cedu re s cf * i rt t &r§ t gene r^ J 



procedure prenretur/i ; 

repeat 

read {keyboard r sort) / 
until eoln (keyboard) 

ej-ad J 



function pre near fbonset j choideca } : char ; 
var ch : char f 

bon _■ boolean / 

repeat 

rea d ( k&yboa rd r ch} Jt 

if eoln {keyboard) then ch ; = Cr , 
bon ; = ch in bonset / 
if not bon then 

writs (son) 
else 

if ch in £' r .»*z*J cheji 
write (ch) 
until r>o/i ? 

end ; 

procedure. Jtte,s.s^ije fx, y * £-iPi±ftg i e:r ; 
begin 

gataxy (x f y) / write [s f efl) 
end ; 



string- } 



11+ 

lie 
llei- 
llc 

llgs 



{*■ affiche le znenu pour -chacjue ^uuzba et retournc lfi choix 

funct ion msnii f c/kjik ; string ) : char i 

jbegi/i 

if choix = 'D* then 
begin 

mw&**ge (margv f G r w D detain ') / bonnet := [*D\ 'd'} 
end 
else 

begin 

bviiact := [ 1 1 ' - ■ choix [length (chain) }} / 
message (marge, & r concar ( 'ordre ',uliuljt. } \ 
end / 

message faurge, 0, *T - Imprimer '} i 
message {anti.&e, 1 Q t 'Q - quitter '} t 
message imarge+15, lZ f votre choix ; 'J / 
bonset t~ bonset * [*!', '0'* 'i'* 'q 1 } : 
moot! t~ pMflwr (bonset? 
end , 

( a cette procedure contient toutes ies procedures de dessin 

procedure desn i coui ibe ^ 
var repanse ; char ; 
ordre : integer / 

procedure inlL iigt (x f y, angle : integer/ / 
begin 

initturtie f pencolor fnnnp.) j mo veto tx*y) / 
tur^tp {angle} / pe/jcolor /hrftitej 
end ; 



procedure von_ jt o ch ; 

procedure v_dessin (ordre,. long i integer} / 
var nc-\iv_iang f neuv_ordir<B ; integer / 
begin 

nouv_ordre : - ordre-1 / 
novv^lonti '. - long d£v 3 : 

i £ c rdre - than 

jtiove (long) 
else 

bed n 

V_d<;3£! in { nouv ordru, jt:£3uv_J angjr j 

t urn { 60} ; v_dessin { nouv_ordre f nouv-_long) 

t urn (-1 201 * v dessin ( nouv_ordre f nouv_long) 

turn (6-0) ? v_dessin { nauv_crdre, nauv_long} 
end 
end i 



hfuji i\ 

init. hijr (Qj 40,0) ; v dennin (ardrc, 270} ? 

r&adln 



end ; 



procedure t riangle ; 
var long : integer i 



{j : fJt.f.TJ'ij r*f idessin (ordre f 1 ong, sens ; integer ; ; 
rar ncuv_ Jong, nouvordre integer j 
begin 

nouv ordra- ordrti-1 / 
novv_long: = long div 2 s 
if ordre — p then 

move (long) 
■else 

begin 

turn ( GO*s&frs) f t dess.tr. fnauv ordre, nonv long, -l*setis) ; 
t u rn f - 60 *sens) j £_d&ss i n (nou v_ardre , nouv_ J ong , sen s) : 

tur/] f-CO^JcnaJ f t efesaij"! (eiouv ordrn f nouv long* -I *a<zfia} / 

e.nd 
#?nd / 



begin 

case ordre <if 

J, J, £ I iongr f- ,• 

J,J long i= 255 $ 

4 ; lorrg 

end / 

inifc_hgr fI2, 0,, 0) fc^4*#*$*i fordre, LONG, 1) | 
ejsd / 



procedure dragort jr 

proceJ ure d dees in {ardre r sens jr int&g&r / l&ng £ CUn}} ,jf 

var tiauv_ardro, jiouv_sens ; integer ; 
nouv long ; rea-I / 

jfcwgifl 

nou7_ordre : = ordrs ~~ X i 
nou vsens := sens J f-IJ ,* 
nouv long r* long * ; 
f ordra ft t>ien 
move i'tru^ic^iojng r ^ J 
else 
.begin 

turn f-5£3*sens^ ," <f_dcjjin ifnou v ordrt/ -1, fiautv^lcng J / 
turn i 45*sen§) 
era 
end / 

begin 



ini *_hgc f£9, 53, 0) ; ordro j- 2 * ordre 



procedure peana / 

ygir / nngv / 3 i nt erje r ,■ 

procecfure p dessin (i f lofig f sens ; integer ^ ; 
v^r JongJ, lanq2 f long! ; integer 
begin 

if i > 1 then 
begin 

j<3/igJ long div 3 j 



p_ 


rffts.*? i rr 


!■ 


-i. 


1 on(j3* 


-11 




turn 


(■ 


-90) 


p_ 


dcs3± n 


<i 


i, 


long J/ 


1) 


t 


turn 


( 


90) 


p.. 


tiessin 


a 


-i. 


longj. 


1) 




turn 


( 


90) 


1» 


dessin 


ti 


-x, 




It 




: urn 


( 


30) 


p 


tim9&£ n 


fi 


-h 




-11 




turn 


I- 


■90) 


p. 


detain 


(i 


-i, 


lonq3f 


1> 


1 


t urn 


1 


-90} 


p. 




<i 


~i, 


longJ, 


-u 


I 


turn 


(• 


-BO) 


p_ 


dessin 


a 


-X, 


long3 g 


li 




turn 


( 


90) 


p_ 


doss in 


a 


-1, 


Long!, 


sens) 









cud 
else 
begin 

longl := long div 2 ; 

Latiy2 i- trurrc (long * 0.J5J55) I 



move 


f longl) 


F 


turn 








move 


(longZ) ; 


turn 


(-15) 


move 


tlongl) 




turn 




45) 


t 


move 


(lang2) ; 


turn 


( 4S) 


move 


1 longl 1 




turn 


t 


*S) 




rttov* 


(longl-) ; 


turn 


( 


my ve 


(laugl) 


i 


turn 


( 


45) 


1 




(longZ) f 


turn 


f 4S) 


move 


(longl) 




turn 


I- 


■IS) 


/ 


move 


(long2) ; 


turn 


(-45) 


move 


(longl) 


/ 


turn 


(■ 


■45) 




move 


Uong2) i 


t urn 


(-45) 




(1 ring J ) 


/ 


turn 


(■ 


-4S) 




move 


(lonr?2) ; 


turn 


(-45) 




(longl) 




turn 


( 


45) 




move 


tlartgS) / 


c urn 


( 45} 


move 


flangl) 




t urn 


f 


4S* 


sens) ; 


move (longZ) ; 




turn 


t-45*sens) 



















»I>d r - 

begin 

Inlthgr \125 r n*-45} $ 
If OiJie - J then 

long :- i* 
el$<e 

long s= 4B , r 
for i := 1 La 4 do 

begin 

turn (90) j q_dessin fordre, long, J J 
en-d f 

£ tStidlll 



procedure sierpinski f 

WAT h r ]' t 7. r x r y, n " \r\ti?qf?Y 



procedure cote_l { i 
procedure cot e 2 [ 1 

procedure cote_3 ( i 



: integer ) ; forward ; 
: integer ) ; Forward f 
i integer J / forward ,* 



procedure cot«_4 i i : integar ) „■ 
buy In 

if i > then 
begin 







t 


tt t = h h f y t- y + 


mo veto 




f 


coce I fi-iy / 


y := y 


+ 2 4 


h 


j? utaveto fx, yj ; 


crate .1 


(r-7J 




x i - v — li jr y r - y + 




f*.y; 







end 
end } 



procedure '. c_ .J / 
begin 

if i > then 

croter^J ti-1) -f K i= jc - h f y 

movezo (x,y) ; cnte_g (1-1) i 
x:=x-2*h? moireto (x,y} 

ce>te_2 ii-li ? x .*= v - h ? y 

moveto lx,y) i cgte^J 
end 
end ; 



procedures ^cjlv_Z f 
begin 

if i > then 

cate_2 t±-l> 
mo veto fx j y) 
y ;- y - 2 * 

cote_J 

moveto ix,y) 

end s 



x i= x - H J 
cote_3 (1-11 ; 
; m?v*to fx,yl ; 
^ jc t h ; y : 
cote 2 



y := y - n 



to 



procQ d ur e co t e_ 1 f 
hegin 

if 1 > Chen 
begin 
cote 1 

x x t 2 * 
cots_4 
saoveto tx r y) 
p. fid 



x := x * h f - y 

cate_2 fi-JJ ' 
f ma veto (Xj y) 
x ;= x + ft ;y 
cote I fi-I/ 



end / 



i Of n : — ordrc f h / 
for z : s J to n do 
beain 

Ji := h div 2 > i .-= I * J 
end if 

x £G + h j y 1*1 - h s init hgr (x f y,0) ; 
cate_l (i) i x ;= x + h j y := y - h j moveto tx,y) ; 
cote 2 fi) / * i= X - h ; y : = y - h ; moveto (x,v) / 
totej i^ij / x - h t y i~ y + A «ev«to f^ r yJ / 

cote_4 fi; / x x t h ; y r= y +■ h ; raovety fat^jfj t 
re&dln 
ond ■ 



procedure h__d&ssin (long i integer} ; 
var cote, nauv_iong ; integer i 
bvgin 

iC long > 3 then 
begirt 

nouv_laftQi ^ trunc {long*Q.3G) j 
for cote ;= 1 to (* do 
bug in 

move (nouv long) ; turn (60f ; h^de^sin (nouv_long) 
end 

end 
CfJii i 

begin 

init hgr I255 t 95 t 120} J SjSmtfjl \2€4} | 
readln 
end ; 



procedure de_dessin ix f y, lung ; integer } i 
var i f j : inte<jer / 
begin 

if long > O then 
for i i= to 2 do 
for j := to 2 do 

if i*j - 1 then 
begin 

viewport (x+lang, x+2+long-l, y* long, y+2*long-l} j 
fills creen f re ve r^e ) ; 

dc fx * long, y*long r long div 3} 

end 
else 



de dessin (x.+lang* i f ytlong *■ j t long div 3) 



begin 

inic_hgr ZO,Q t O} / dedessiti ($0,15,54) 
readln 
end i 



procedure Carre* / 
frf£ ± ) ^jjteytr-L / 

procedure cdessin (lvng, sens 7 integer J t 
var i> ninng", n.w.ns ; integer / 

if long ^ 1 tnen 
begin 

along : - Icng div 2 j f!ttfiti$ ; - -7*sf»n.i ; 
for i ,- - I to J eta 
begin 

move floirtrJ / c_deasin (nlang, nsens) 

end } 

stave (1 Qi'sg} 
end 
else 

fcura (90*^ons) 
end ; 



begin 

init_hgr (100, 64,0} f 
for t ;= J to ^ do 
begin 

move {64} i c_dessirt (32* 2 J 
end! / 
read In 
end § 



begin t * dessine_catirbe * J 

repeat 

Eetttmodc f write fhomc:} f 

gotoxy (15,1) j t*rite±n (liste [i J ■ nam} 1 
reponse : = menu (liste [ij .niv) i 
if f\n£ tmpnnjts in f *0\ 'qj* ] J then 
if reponse in ['I 1 , thc-n 
begin 

message {0,14, 'prepares 1 ' ' impri wants puis tapez RETURN ') ! 
pr&fir-f.turn ? rewrite fpapi-er f 'printer: 'I I 
write {papier , cr, liste [if ..nam i / 
if i in [1..5] then 

writ&ln {papier, \ crcfre \otrdre) / 

cYa imp ; 



WjTJ.itrJj'j Cfjdfjlsfi: j Cf, 1 

c J Gje -fpapi er> 
end 

o rtfre ; - ord ( repo nsejh ord ( * Q ' } ; 





i of 


1 


l von kotrh / 


2 


■ triflfjgic i 


3 


• dragon } 


4 


• pea no ; 


s 


i siarpineki 


e 


■ Ji«xdy[jrje 


7 


: dentelle ; 


8 


: car res 


end 




end i 





until reponse in {'Q','q'l 

end: 



ft — — - 

ft 



hegin 



borne . 


= ahr (12) 


i i.T 


cjjr (13) ) etl 


i=hr 129} 


i son ; - 


chr 17) 1 


• : nt:e 


{11 


nQltt ; = 


•1 - 


couri>e de Von Koch T „ 


liste 


(JJ 


niv 




'I. .*' ; 


lista 


121 


nonr : - 


•2 - 


triangle' s 


liste 


m 


niv 




; 




C31 


fiojn f = 


'J - 


draqon ' / 


lista 


[31 


niv 




s 


lists 


[11 


nom : - 


•4 - 


courtte de Feana • j 


liste 


[41 


niv 






liste 




nam : = 


'5 - 


CQtlcbe de £ierpin£ki 


t liste 


[5J 


niv 




•l..f ; 


i f &te 


[61 


nom 1 = 


'6 - 


hexs done ' ; 


liste 


161 


niv 




•(}• ; 


liste 


[71 


nom : = 


•7 - 




Lists 


tv 


. niv 




•0 1 ; 


Usee 


[81 


noia i = 


■s - 


carres ' ; 


liste 


[Bl 


.niv 




■0' i 



repeat 

writr* tftnrtifi) ; 

mcJjagc fittarge,J, Trace dts eourios ismraivsaV / 

message tnrarge, 2 f 1 * — ~" — V i 

for i := 1 to B do 

meiasAge Imarqe, i *2+2, liste [il.nom ) ; 

message (marge e 20 f *Q — quitter ') ; 
message (marge-t-15,23, 'votre choix :'/ ; 
rep^nae -~ pr&t\r:tk-r ( [ ' T ' . . ' fl r f 'Q *^ 'q'J } ; 
if not freportje in {'Q', 'ci'l ) then 
begin 

i := ord (reponse) - ord CO') ,- 
dessine cctuirbe 
end ; 

until reponse in ['V,'<I'I 

end. 



Pour V Apple II, une commande externe ProDOS, 
Pour le Macintosh, un accessoire de bureau : 



Uleiyu mK0UlY*<~> 
OYMliolbY§71^S) 




Kruptos est tin utilitaire de cryptage disponible a 
tout instant, Kruptos rend inaccessible sans la clef 
de decodage tons les fichiers qui doivent tester 
confidentiels : courtier personnel, rapport 
professional, fichier de clients. Mime les 
programmes et applications peuvent etre proteges. 

Les deux versions de Kruptos sont des programmes 
Pom's, listes dans la revue n°29. 



Revue 23 : 45,00 F 

Disquettes : 
Apple II 140 Ko : 60,00 F 
Apple II SOOKo : 80,00 F 
Macintosh ; 80,00 F 



Bon de commande 
page 74 



Une disquette de jeux : 

Ludologic 



Au somrnalre de la disquette LUDOLOGIC, trois 
jeux de reflexion de difficuife croissante. Ces 
jeux qui necessitent des neurones aussi 
calmes qu enframes, ne devralent pas 
decevoir les amateurs de puzzles et autre; 
casse-tites. 

II nest pas necessaire de presenter TAQUIN, 
ce pousse-pousse fnformatlque Id fort blen 
presents, 
Nouvelle difficuife. NOIR & BLANC : 37 
hexagones peuvent etre noirs ou blancs mais 
au depart vous n'en connaissez pas la 
couleur. Chacun comporte un numero qui 
represente le nombre de cellules voisines 
blanches... A vous de reconstituer le decor 
original ! 

HEXAGONE MAGIOUE est encore plus detlcat, 
meme prlncipe que le carre magique, mals ici 
vous devrez installer les chiffres de ] a 19 dans 

un hexagone de telle facan que les 5 
horlzontales et 10 obliques totalisent chacune 
38 : bonne chance. 



Fidele a son habitude. Pom's vous propose sur cette 
disquette tes sources des routines ecrites par Sylvie 
Gallet en assembleur Lisa 2.5. Bien entendu, lo Basic 

est egalement listable, TAQUIN et NOIR & BLANC 
utibent leur propre routine graphique qui permet de 

dessiner plus rnpiriement qu'avec des shapes. 




80,00 F Franco, 
Son de commande page 74 
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foici un programme qui 
permet de disposer 
d'un ecran virtue! de 
256 colonnes par 48 
lignes de textc (ou 128 
par 96). Bien entendu, 
il ne sera pas possible 
d'afficher 1'ensenible 
de l'ecran, mais voire 
ecran physique de 40 colonnes et 
24 lignes devient une fenetre que 
vous d6placez dans les quatre 
directions grace aux fleches du 
clavier. 

Pour cc qui est de l'usage de ce 
programme, elle depend de 
l'imagination : stockage d'ecran 
(jusqu'a 15), menus defilants, 
ecrans type Visicalc. 

Principe de l'ecran 
virtuel 

HTVIR 




9t %py-Contancin 



T.es cominandes 



Les differents parametres a - 
transmettre sont des variables 
Basic ou des constantes (A, A%, 
A(25), A%(25)...). 
Pour la presentation ci-dessous, 
les variables ont la signification 
suivante : 

LD Ligne debut 

CD Colonne d^but 

VT VTVTR 

HT H'l'VIR 

LF Ligne fin 

CF Colonne fin 

L Toutes les L lignes 

C Toutes les C colonnes 



2)6 



255 



24 



47 



" A 


ecran I 










3 

ecran 2 



En 256 colonnes, les lignes sont 
numerotees de a 47, la variable 
VTVIR ($07) representant le 
numero de ligne. Les colonnes 
sont numerotees de a 255, la 
variable HTVIR representant le 
numero de la colonne. 

L'ecran 1 est localise paT les 
coordonnecs du point A qui est le 
coin superieur gauche de l'ecran 
physique. 

Le point B localise l'ecran 
inferieur droit qui a les 
cooidonnecs maximales pour la 
fonction d'affichage. 

L'ecran 128 colonnes se presente 
ainsi : 



88 



127 



72 



95 



Home 

&H, LD, LF, CD, CF 

Effacement de tout ou partic dc 
l'ecran virtuel, Les 4 parametres 
sont obligatoires ; pour ef facer 
tout l'ecran, il faut : 
256 col : &H. 0, 47, 0, 256 
128 col: &H.0, 95, 0, 127 
La fonction effacement ne change 
pas l'affichage physique. 

Copy 

&C, VT, HT 

Cette fonction copie l'ecran 
physique de telle facon que le 
point VTAB 1 IITAB 1 soit place 
en VT, HT sur l'ecran virtuel. Le 
programme contrflle que VT et 
HT ne depassent pas les 
coordonnees du point B. 

Window 
&W, VT, HT 

Fonction inverse de la 
precedenLe : on place la fenetre 
definie par VT, HT sur l'ecran 
physique. Memes controles. 



Print 

&P, VT, HT 

Imprime sur l'ecran virtuel le 
contcnu dc la variable definie cn 
premier dans le programme. 
Cette variable sett de buffer 
d'impression. 

10 A$ - ""; REM definition 
20... 



175 A$ = "Hal la" 

180 &P r VT,HT : REM Affiehe 

Ce PRINT n'a pas d'effet 
immediat sur l'ecran : &W, VT, 
HT le rend visible. 
Le PRINT virtuel respecte les 
fonctions NORMAL, FLASH et 
INVERSE du Basic. 
La variahle de transfert (A$ dans 
l'exeniple) doit etre definie en 
premier dans le programme Basic 
(gare au D$ = CHR$(4) 
frequemment defini en tete des 
programmes...). 

Grand cadre 
&K, 1 

L'ecran virtuel est horde 1 de 
blancs inverses, tres utiles pour 
reperer les limites. Attention, les 
fonctions &C et &P ecrasent sans 
complexe le cadre. &K, 1 retablit 
la situation. 

Qiiadrillage 
&K, 2, L, C 

Cette fonction trace le grand cadre 
et trace une ligne toutes les L 
lignes ct une colonne toutes les C 
colonnes. 

Visualisation 
&V, VT, HT 

Par cette commande, VTVIR et 
HTVIR sont mis a VT et HT et la 
fenetre peut etre dirigee a voire 
gi6 a Taide des 4 fleches (sur le 
][+, CTRL-K et CTRL-J 
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rcmplaecnt T ct -1). 
On sort de la visualisation par 
ESC ou RETURN. Si 
l'utilisateur a presse ESC, PEEK 
(9) = 141, s'il a presse" 
RETURN, PEEK (9) = 155. 

Turn page 
&T, 1 &T, 2 

Un ecran virtuel peut en cacher 
un autre ; 

La carte langage est constitute de 
2 banks de 4Ko et d'une panie 
commune de 8Ko. 
En 256 colonnes, les banks 1 ou 
2 contiennent 16 lignes et les 8Ko 
32 lignes. 

En 128 colonnes, les banks 1 ou 
2 contiennent 32 lignes et les 8Ko 
64 lignes. 

&T, 1 et &T, 2 permettent de 
choisir le bank utilise. 

Colonnage 128/256 
Poke 10,0 

Affiehage en 128 colonnes. Par 
defaul, 256 colonnes. 

Save page 
Call 37723 

Pour sauvegarder un ecran, il 
convient d'en transferer le 
contcnu dc la carte 16Ko cn 
55 180 par CALL 37723 puis de 
faire BSAVE PAGE, A35180, 
LS4000 

Load page 
Call 37742 

Pour charger un ecran, il convient 
dc faire ELOAD PAGE puis d'en 
transferer le content! en carte 
16Ko par CALL 37742, 

VIRCEL, 
programme de 
demonstration 

A titre de demonstration, le 
programme VIRCEL utilise la 
plupart des commandes de 1 'ecran 
virtuel, 

II permet de creer el de tenir a 
jour un ecran geant de 128 



colonnes par 96 lignes, ecran 
divise en cellules pour tenir a jour 
un petit fichier d'adresses par 
example. 

La cellule est un rectangle d'un 
nombre de lignes et de colonnes 
ddfinis a la creation dc l'ccran, ce 
sont des cases dans lesquelles on 
peut s locker du teste a volonte. 

Une cellule est ounstiiuee d'une 
ligne titre (video inverse) et de 1 a 
20 lignes de texte, 

Une ligne est constituee de 1 a 39 
caracteres, le premier caractcre est 
en vid£o inverse et il est 
inaccessible. 

















I 


tre 


















i 


i 

s 
f 






































i 

























Le menu 

Chargement d'un ecran 

Le programme vous demande 
d'entrer le nom de l'ecran voulu. 
Pour charger l'ecran VIDEO, il 
sufflt dc taper VIDEO. 

Consultation 

Utilisation directe de &V, VT, 
HT. On deplace l'ecran par les 
fleches et on sort par ESC ou 
RETURN. 



Mise a jour 

II y a 3 phases a distingucr ; 

1 Visualisation de l'ecran : vous 
devez jouer avec les fleches 
pour que la cellule h modifier 
soit presente a l'ecran puis 
faire RETURN. ESC permet 
d'abandonner la mise a jour. 

2 Affiehage de * en video 
inverse. 

Deplacer I'* de fagon a la loger 
dans la cellule a mettre a jour, 
puis faire RETURN (ou ESC 
pour ab an dormer). 
Si vous faites snrtir 1'* de 
l'ecran, on repasse en phase 1. 



3 Saisie du texte dans la cellule. 
La cellule choisie est placde 
dans lc coin supcricur gauche. 

Creation d'un exran 
Fonction tres simple. 

Sauvegarde de l'ecran 

Le programme demande le nom 
de l'6cran, ce qui permet de le 
dupliquer. 

Note 

Ligne 1070 : les PEEK (33153) 
et 33154 servent a r£cup6rer la 
taille d'une cellule (nombre de 
lignes et de colonnes), Ces 
informations ont ete stockees a la 
creation dc l'ccran (ligne 4175) 
dans les 2 premiers octets de la 
page 2, nun utilised par VIRCEL. 

Comment faire ? 

Vous avez la disquette d'accom- 
pagncmcnt Pom's, pas de 
problemes, vous dispose?, des 
fichiers necess aires. Pour voir la 
demonstration, faire simplement 
RUN VIRCEL. 

Vous n'avez pas la disquette 
Pom's : 

1 saisir et assembler BIGTEXT. 
BIGPGM et BIGSAVE pour 
obtenir les fichiers BIGTEXT. 
OBJ0, BIGPGM. OBJ0 et 
BIGSAVE.OBJ0, 

2 saisir et sauvegarder la table 
BIGPTR, 

3 saisir, sauvegarder et exe"cuter 
le programme VIRFUZZLE 
qui, a partir des 4 fichiers 
ci-dessns, ennstitue ECR- 
VIRT, 

4 pour vous servir de la 
demonstration, saisir. 
sauvegarder et executer 
VIRCEL. 



p£ DhgrTool 

Dans le numero 30 de Pom's, un 
Couper/Coller energique a fait 
perdre quelques octets a la 
recapitulation DHGRTOOL.0 ; la 
routine ne peut fonctionner qu'en 
ajoutant a paTtir de SOB 96 ; 
84 20 2B EB 60 
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Programme VIRPUZZLE 

1 REM VIRPUZZLE 

5 REM : RASSEMBLAGE DES MORCEAUX 

10 HIMEM: 37248: REM PROTECTION DO PRO 

GRAMME 
20 D$ = CHR$ (4) 

PRINT D$ "BRUN BIGTEXT .OB JO" 



30 
40 
45 
50 
60 



PRINT D$"BWAD BIGPTR, A$93D0 " 

PRINT D$ "RLOAD BIGSAVE . OBJO " 

PRINT D$"BLOAD BIGPGM.OBJO" 

PRINT U$"BSAVE ECR-VIRT, A$9l80, L$480 



Programme 'VIRCEL ' 

5 REM GESTTON CELLULES TEXTE 
10 HIMEM: 20864: REM PROTECTION ECRAN V 
IRTUEL 

25 AS = "A": REM PREMIERE VARIABLE DU PG 
M 

17 D$ = CHR$ (4) :B$ = " 

20 PRINT D$ "BRUN ECR-VIRT": REM CBARGEM 

mf 

30 POKE 10,0: REM ECRAN 129 COLONNES 
50 HOME : REM AFFICHAGE MENU 
60 : HTAB 10: INVERSE : PRINT "MENU": NOR 
MAL 

70 VTAB 4 : HTAB 1 i PRINT "1 CHARGEMENT D 
•UN ECRAN" 

SO VTAB 7: HTAB 1: PRINT "2 CONSULTATION 
CELLULES" 

90 VTAB 10: HTAB 1: PRINT "3 MISE A JOUR 
CELLULES " 

95 VTAB 13: HTAB 1: PRINT "4 CREATION D' 
UN ECRAN" 

98 VTAB 16: HTAB 7: PRIAJT "5 SAUVEGARDE 
ECRAN" 

100 VTAB 13: HTAB 1: PRINT "4 CRF.ATION D 

'UN ECRAN " 
105 VTAB 23: GET S$t PRINT D$ 
1)0 TF E$ = "1" THEN GOTO 1000 
120 IF E$ = "2" THEN 2000 
130 IF E$ m "3" THEN 3000 
140 IF E$ = "4" THEN 4000 
150 IF E$ - "5" THEN 5000 
160 GOTO 50 

1000 REM CHARGEMENT ECRAN 
1020 HOME i PRINT " NOM DE L ' ECRAN ": INP 
UT E$ 

1030 IF LEN (E$) = THEN 1020 

1040 ONERR GOTO 1020 

1045 PRINT "JE CHARGE" 

1050 PRINT D$ "BLOAD ";ES",AS5180" 

1060 CALL 37742: REM TRANS PERT SUR CART 

E im 

1070 L = PEEK (33153} :X = PEEK (33154) 

1080 GOTO 50 

2000 REM VISUALISATION 

2005 VT = 0:HT *= 



2010 
2020 
3000 
3005 
3010 
3020 
3021 

3025 
3030 
3031 
3035 
3040 

3050 
3060 
3070 
30 HO 
3085 
3086 
3088 
3090 
3100 
3110 
3120 
3200 
3210 
3300 
3310 
3400 
3410 
3500 
3510 
3512 

3514 

3516 
3518 
3520 

3530 
3540 

3550 

3560 

3530 



3600 
3610 
3620 
3630 

3640 

3650 
3660 
4000 
4030 



DOS 3.3 



PRINT "*" 



ASC (F,$) 



ESCAPE 



H = B + 
IF H = 

H = H - 
IF V = 

V _ v - 



6 V, VT, HT 
GOTO 50 

REM MISE A JOUR 
VT = 0:HT = 

& V,VT,HT: REM AFFICHAGE 
VT = PEEK (7):HT = PEEK (8) 

IF PEEK (9) -155 THEN 50: REM 
CAPE 

V = 12:H = 20 
IF HT > 88 THEN HT = 88 
IF VT > 72 THEN VT = 72 
& Wj VT, UT 

INVERSE : VTAB V: HTAB H: 
: NORMAL 

GET E$: PRINT D$ :A = 
IF A = 21 THEN 3100 
IF A = 8 THEN 3200 
IF A = 11 THEN 3300 
IF A = 10 THEN 3400 
IF A = 27 THEN 50: REM 
IF A < > 13 THEN 3030 
GOTO 3500 
REM DROITS 
IF B r - 40 THEN 3010 
I; GOTO 3030 
1 THEN 3010 
1: GOTO 3030 
1 THEN 3010 
Is GOTO 3030 
IF V = 24 THEN 3010 

V = V + 1: GOTO 3030 
RF.M MTSE A JOUR EFFECTIVE 
HOME : REM CALCUL DE VO,R0 

SY = Y + Is HI *» HT + B - 1 : VI = VT + 
V - 1 

[10 "* SY * INT (HI / SY) + l-.VQ = L 
* INT (VI / L) 

IF VO i- L > 95 THEN 3030 

IF BO + SY > 128 THEN 3030 
Dl = 0:D2 = 0: REM DEPLACEt>[ENTS VER 
T/HORIZ 

V2 = V0:H2 = HO: 
IF VO > 72 THEN V2 = 72:D1 — VO - 7 

2 

IF HO > 88 THEN 62 - 88:D2 « HQ - 8 

8 

& W,V2, H2 - 1: REM AFFICHAGE CELLU 
LE DANS LE COIN SUPER IEUR 
VTAB (1 + Dl) : HTAB (1 + D2) : INPUT 
T$ : IF LEN (T$) - THEN 3030: REM 
TTTRF. 

A$ = LEFT$ (T$ + B$, Y) : INVERSE 
& P r VO,HO 

NORMAL : FOR J = 2 TO L - 1 
VTAB (J + 1 + Dl) : HTAB 
NPUT E$ 

A$ = LEFT$ (E$ I B$j Y) 
HO 

NEXT J 
GOTO 3030 

REM CREATION ECRAN 

HOME : HTAB 10: PRINT "CREATION D'U 




(1 + D2) : 
& P,VO + 



J, 
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W ECRAN" 

4040 VTAB 5: HTAB 1: PRINT "NOMBRE DB LI 
GNES " 

4050 VTAB 8: HTAB 1: PRINT "NOMBRE DE CO 
LONNES " 

4060 VTAB 11: HTAB 1: PRINT "NOM DE L'EC 
RAN" 

4061 VTAB 5: HTAB 20: INPUT E$:X = VAL 

tm 

4065 IF X < 1 OR X > 20 THEN 4061 

40 70 VTAB 8: HTAB 20: INPUT E$:Y = VAL 

4075 IF Y < 1 OR Y > 39 THEN 4070 

4080 VTAB 11; HTAB 20: INPUT E$ ; IF LEN 

(E$) = THEN 80 
4090 * T, 1: REM PAGE 1 
4100 POKE 10 r 0: REM 128 COLONNES 
4110 & H, 0,95, 0,127: REM HOME 
4120 L = X + 1j £ K,2,L,Y + 1 



4130 INVERSE :A$ = E$: & P,0,1: NORMAL 
414 & N,0,0; REM MM AFFICHAGE RESULTAT 
4145 F$ = E$ 

4150 VTAB 23: HTAB 1: PRINT "CONFIRMED P 
AR C" 

4160 INPUT E$: IF E$ < > "C" THEN 4030 
4165 & W,0,Oi VTAB 23; HTAB 1: PRINT "AT 

TENDEZ MERCI" 
4170 CALL 37 723: REM TRANSFER T EN MEM 
4175 POKE 33153, L: POKE 33154, Y 
4180 PRINT D$"BSAVE " ; F$ ,- " , A$5180, L$301Q 

tt 

4190 GOTO 50 

5000 REM SAUVEGARDE 

5010 PRINT "ENTREZ LE NOM DE L' ECRAN" 
5020 INPUT E$: IF LEN (E$) - THEN 500 

5 

5030 GOTO 4145 



Source 'BIGTEXT 

Assembleur Big Mac, 
format TEXT 



1 


it**************** 


2 


* PAGE GEANTE 


3 


* 






4 


* H.ROY 


-CONTANCIN 


5 


* 19/05/86 1 


A 


6 


A A A * A A A A A A A A A A A A 


7 


PAGE 


EQU 


$06 


8 


VTVIR 


EQU 


SQ7 


9 


HTVIR 


EQU 


$08 


10 


SAVX 


EQU 


$09 


11 


DlMl 


EQU 


$0A 


12 


DIM2 


EQU 


$0C 


13 


ADR 


EQU 


$18 


14 


ADP 


EQU 


$1A 


15 


RAM 


EQU 


$C083 


16 


ROM 


EQU 


$C082 


17 


LIG 


EQU 


$1C 


18 


LIGP 


EQU 


$1D 


19 


MAXV 


EQU 


$CE 


20 


MAXH 


EQU 


$CF 


21 


LONG 


EQU 


$1F 


22 


LIGD 


EQU 


$F9 


23 


LIGF 


EQU 


$FA 


24 


COLD 


EQU 


$FB 


25 


COLF 


EQU 


$FC 


26 


PTR 


EQU 


$FD 


27 


SAVA 


EQU 


$FF 


28 


GETBYTC 


EQU 


$E6F5 


29 


SPPRINT 


EQU 


$9400 


30 


SPCADRE 


EQU 


$9403 


31 


SPVISU 


EQU 


$9406 


32 


ADTX 


EQU 


$9409 


33 


INIADR 


EQU 


$940C 


34 


ERROR 


EQU 


$D419 


35 


***-CHARGEMENT~ADRE$$E 


36 




ORG 


$9180 


37 




LDA 


#$4C 



■J V 




STA 


$3F5 


■J 




LDA 


t$90 


4!) 




STA 


$3F6 


41 




LDA 


#$91 


42 




STA 


$3F7 


43 




RTS 




44 




-PRINCIPALS 


4 H 




TAY 








LDA 


DIM1 


47 




BEO 


El 28 


4ft 


E256 


LDA 


§$00 


49 




STA 


DTM1+1 


50 




LDA 


*$01 


51 




STA 


DIM1 


^2 




LDA 


#$30 


jj 




STA 


DIM2 






CLC 








BCC 


NOPAG 


56 


El 28 


LDA 


#$80 


57 




STA 


DIM1+1 


58 




LDA 


#$60 


59 




STA 


DIM2 


60 


NOPAG 


LDA 


PAGE 


61 




CMP 


#$02 


62 




BEQ 


PAQZ 


63 




LDA 


#$00 


64 




STA 


SAVX 


65 




CLC 




66 




BCC 


PPTEST 


67 


PAG 2 


LDA 


#$08 


69 




STA 


SAVX 


69 


PPTEST 


TYA 




70 




CMP 


#$48 


71 




BEQ 


m 


72 




CMP 


#$43 


73 




BEQ 


BC 


74 




CMP 


#$57 


75 




BEQ 


BW 


76 




CMP 


#$50 


77 




BEQ 


BP 


78 




CMP 


#$4B 


79 




BEQ 


BK 



80 




CMP 


#$54 


81 




BEQ 


BT 


82 




CMP 


#$56 


83 




BEQ 


BV 






LDX 


#$10 


St c 




JMP 


ERROR 


o b 


BH 


JMP 


SPHOME 


O 1 
O 1 


BC 


JMP 


SPCOPY 


QQ 


BW 


JMP 


SPWIN 


Q Q 

oy 


BP 


JMP 


SPPRINT 


yu 


BK 


JMP 


SPCADRE 


01 


BT 


JMP 


SPCHPAG 




BV 


JMP 


SPVISU 


jj 


************** 


jl 


*HOME 






nr 


SPHQm 


JSR 


ADTX 


JO 




JSR 


GETBYTC 


9 7 




STX 


LIGD 


98 




TXA 




99 




CMP 


DIM2 


100 




BCS 


ANOH 


101 




JSR 


GETBYTC 


102 




CPX 


DIM2 


103 




BCS 


ANOH 


104 




INX 




105 




STX 


LIGF 


106 




TXA 




107 




CMP 


LIGD 


108 




BCC 


ANOH 


109 




JSR 


GETBYTC 


110 




STX 


COLD 


111 




LDA 


DIM1+1 


112 




BEQ 


GB4 


113 




CPX 


DIM1+1 


114 




BCS 


ANOH 


115 


GB4 


JSR 


GETBYTC 


116 




STX 


COLF 


117 




LDA 


DIM1+1 


118 




BEQ 


SPHS 


119 




CPX 


DlMl +1 


120 




BCS 


ANOH 


121 


SPHS 


CPX 


COLD 
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122 




BCC 


AN OH 


inn 

123 




BCS 


SUITHOM 


124 


ANOH 


LDX 


M & A r\ 


125 




JMP 


ERROR 


126 


SUITHOM 


JSR 


INIADR 


12 7 




LDX 


#$00 


128 


BCL1 


CPX 


LIGD 


120 




BCC 


HSU IT 


130 




CPX 


LIGF 


131 




BCC 




132 


FIN 


IDA 


ROM 


133 




RTS 




134 


HSUIT 


INX 




135 




JSR 


AD 80 


136 




CLC 




137 




BCC 


BCL1 


138 


HEFF 


LDY 


COLD 


^ ^ ft 

139 




LDA 


w$AU 


140 


HEF2 


STA 


(ADR) , Y 


141 




CPY 


COLF 


142 




INI 




143 




BCC 


HEF2 


144 




BCS 


HSUIT 


145 


+ ***** 




14$ AD80 


\ LrL, 




T A 7 




±jUJ-i 


ADR 


14a 




JUJL 


DIM1 +1 


T A 




STA 


ADR 


Xj-U 




LDA 


DIM1 


1 T J 




ADC 


ADR+1 


lOi 




STA 


ADR+1 


1 JJ 




RTS 




154 


INPUT 


JSR 


ADTX 


255 




JSR 


GETBYTC 


256 




STX 


VTVIR 


257 




CPX 


MAXV 


2 58 




BCS 


j*- m\ a mm m~ P"i 

SPCERR 


159 




JSR 


GETBYTC 


ieo 




STX 


HTVIR 


161 




CPX 


MAXtt 


162 




BCS 


SPCERR 


163 




LDA 


#$00 


164 




STA 


LIGP 


165 




STA 


LIG 


166 




STA 


ADR 


167 




LDA 


#$D0 


168 




STA 


ADR+1 


169 




LDX 


SAVX 


170 




LDA 


RAM, X 


171 




LDA 


RAM, X 


172 




LDA 


i$D0 


173 




STA 


PTR 


174 




LDA 


#$93 


175 




STA 


n ftp n p 1 

PTR+1 


176 




RTS 




177 


***** CACUL 


ADP 


178 


CALCADP 


LDA 


LIGP 


179 




CLC 




180 




ASL 


A 


181 




TAY 




182 




LDA 


(PTR) , Y 


183 




STA 


ADP 



184 




INY 




185 




LDA 


(PTR) , Y 


186 




STA 


ADP+1 


187 




RTS 




188 


SPCOPY 


JSR 


CHMAX 


139 




JSR 


INPUT 


190 


SPCB1 


LDA 


LIG 


191 




CMF 


VTVIR 


192 




BCC 


SPCLS 


193 




CLC 




194 




LDA 


VTVIR 


195 




ADC 


#£2 7 


196 




CMP 


LIG 


197 




BCC 


SPCF1N 


198 


* ON STOCKS 


UNE LIGNE 


199 




TOD 


CALCADP 


200 




T nv 


HTVIR 


201 




r nv 


#$00 


202 






LONG 


203 




J iA 




204 




D EF71 
PtlA 




205 




LDY 


LONG 


206 




LtLiM 


(ADP) , Y 


207 




£>1A 


SAVA 


208 








209 




v ■ v 




210 




T T~) 7t 
LUA 


SAVA 


211 




b LA 


(ADR) , Y 


212 




INY 




213 




INC. 


LONG 


21 4 




t n y 
LiUA. 


LONG 


215 




L-jr -A 


#$28 


216 






SPC82 


21 7 




INC 


LIGP 


218 


SPCLS 


INC 


LIG 


219 




JSR 


AD80 


220 




CLC 




221 




BCC 


SFCB1 


222 


SPCFIN 


LDA 


ROM 


223 




RTS 




224 


SPCERR 


LDX 


#$4D 


225 




JMP 


ERROR 


226 


SPWIN 


JSR 


CHMAX 


22 7 




JSR 


INPUT 


228 


SPWDEB 


LDA 


LIG 


22 J? 




CMP 


VTVIR 


230 




BCC 


LIGSUIT 


231 




CLC 




232 




LDA 


VTVIR 


233 




ADC 


#$17 


234 




CMP 


LIG 


235 




BCC 


SPWF1N 


236 


* AFFICHER UNE LIGNE 


237 




JSR 


CALCADP 


238 




LDY 


HTVIR 


239 




LDX 


#$00 


240 




STX 


LONG 


241 


SPNB1 


LDA 


(ADR) , Y 


242 




STA 


SAVA 


243 




TYA 




244 




PHA 




245 




LDY 


LONG 







rnn 




24 i 




STA 


(ADP) , Y 


248 




FLA 




249 




TAY 




250 




INY 




251 




INC 


LONG 


252 




LDX 


LONG 


253 




CPX 


#$28 


254 




BCC 


SPWB1 


255 




INC 


LIGP 


256 


LIGSUIT 


INC 


LIG 


257 




JSR 


AD80 


258 




CLC 




259 




BCC 


SPWDEB 


260 


SPWFIN 


LDA 


ROM 


261 




RTS 




262 


SPCHPAG 


JSR 


ADTX 


263 




JSR 


GETBYTC 


264 




CPX 


#$01 


265 




BEQ 


SPP1 


266 




CPX 


#$02 


26 7 




BEQ 


SPP1 


268 




LDX 


It A 

#5 3D 


269 




JMP 


ERROR 


270 


SPP1 


STX 


PAGE 


211 




RTS 




272 


*** CHARGER 


MAXV, MAXh 


273 


CHMAX 


LDA 


DIM2 


274 




SEC 




275 




SBC 


#$1 7 


276 




STA 


MAXV 


277 




LDA 


D1M1+1 


278 




SEC 




279 




SBC 


#$27 


280 




STA 


MAXH 



281 RTS 



Source 'BIGPGM' 

Assembleur Big Mac, 
format TEXT 

2 * PAGE GEANTE 

3 * 

4 * H. ROY-CONTANCIM 

5 * 19/05/86 1.1 

£ * ********* 



7 


VTVIR 


EQU 


$07 


8 


HTVIR 


EQU 


$08 


9 


SAVX 


SOU 


$09 


10 


LOMEM 


EQU 


$69 


11 


ADR 


F.QU 


$18 


12 


ADP 


EQU 


$1A 


13 


PJkM 


EQU 


$C083 


14 


ROM 


EQU 


$C082 


15 


LIG 


EQU 


$1C 


16 


LIGP 


EQU 


$1D 


17 


LONG 


EQU 


$1F 


78 


INVFLG 


EQU 


$32 


19 


MAXV 


EQU 


$CE 
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21 



9f] 


MAXH 


EQU 


$CF 




T AY 
IM-2j\ 




J. *i *i 




BCC 


SPKFIN 


21 


IilGD 


EOU 


f F9 




\jt*lr 




-A- -y 


SPCl 


CPX 


i$01 


Op 


IjIGF 


EOU 


$FA 


84 SPPS 






y£ ^* O 




BNE 


SPCERR 

O-XT *-r* _C- J X\ XV 


91 




EQC7 


SFB 


85 SPPB1 


IjfJM. 




7 & 7 




JSP 


QPT1 


9 A 






$FC 


86 




r J r J. ^ 




SPKFIN 


LDA 


ROM 


ZD 


era uy 




£FF 


87 






1 AO 




RTS 




£ 






$B8 


88 






i Ju 


SPCERR 


LDX 


#$B0 


2 7 




EOU 


$ESF5 


89 










JMP 


ERROR 


o 


DIMl 


KC3U 


$0a 








± -j*. 


*** GRAND CADRE 


29 


DIM 2 




$oc 


91 






1 53 


CP Tl 


JSR 


IN I ADR 




rllS O 1/ 




S925A 


92 




<?PP757 


i 


CPT1 LI 


JSR 


TRAIT 


J 1 


INPUT 


EQU 


$9268 


93 SPPMOVE 


t nv 




7 T *i 


OP Tl SI 


JSR 


AD80 


"5 9 


SPWDEB 


EQU 


$92F7 




JLrUri 




1 56 




INC 


LIG 




CHMAX 


EQU 


$934A 


95 


OKA 


Jy'OU 






LDA 


LIG 


? A 


ERROR 


EQU 


$D419 


96 






1 58 




CMP 


#$5F 




* ** -CHARGEMENT-ADRESSE 


9 7 




-L 11 


159 




BEQ 


0PT1LF 


-J i? 




ORG 


$9400 


98 






1 60 




LDX 


DIMl 


17 
j r 


El 


JMP 


SPPRINT 


99 


r 

-LrL/rl 


IWVFLG 


1 61 




CPX 


#$00 


J o 


E2 


JMP 


SPCADRE 


1Q0 






162 




BEQ 


0PT1S2 


^ Q 


E3 


JMP 


SPVIS 


1 01 


DM IT" 


CN7F 


1 63 




CMP 


#$2F 


41 u 


E4 


JMP 


ADTX 


102 


Of fl 








BEQ 


0PT1LF 




INIADR 


LDA 


M$00 


1 03 






-1 V J 


OPT1S2 


LDA 


4$20 


A9 




STA 


LIG 




AMD 


INVFLG 


166 




LDY 


f$oo 


A ^ 




ST A 


LICP 


105 






1 67 




STA 


(ADR) , Y 


A A 
H ** 




STA 


ADR 


106 


TV A 

1 i 




168 




LDY 


DIM1+1 


A K 




LDA 


f$DQ 


107 




SAVY 


169 




DEY 




A G 




STA 


ADTt+1 


inn 

108 






1 70 




STA 


(ADR) , Y 


A 7 




LDX 


SAVX 


1 09 




HTVTR 


1 71 




CLC 




A Q 




LDA 


RAM, X 


110 






± / A 




BCC 


0PT1S1 






LDA 


RAM, X 


111 


dt a 




7 7^ 


0PT1LF 


JSR 


TRAIT 






RTS 




1 12 


in 


tADR) , Y 


7 74 
x / ^* 


FIN0PT1 


LDA 


ROM 


d j. 


SPPRINT 


LDA 


VTVIR 


113 


r ny 


SAVY 


1 75 




RTS 








PHA 




114 






7 7(1 
X / D 


<* * * QUADRILLAGE 






LDA 


HTVTR 


J Id 




CINY 


177 


OPT 2 


JSR 


GETBYTC 


54 




PHA 




11S CN7F 


PLA 




178 




STX 


LIGD 


55 




LDA 


DIM2 


11 7 


CLC 




179 




JSR 


GETBYTC 


56 




STA 


MAXV 


119 


BCC 


CFIN 


180 




STX 


COLD 


57 




LDA 


DIMl J 1 


119 CINY 


INY 




181 




JSR 


INIADR 






STA 


MAXH 


120 


CPY 


LONG 


182 




LDA 


#$00 






BNE 


SPPI 


121 


RCC 


SPPM1 


183 




STA 


C0LF 


ou 






MAXH 




PLA 




184 




STA 


LIGF 


ul 






INPUT 


1 r> 
li. _ 


STA 


HTVIR 


185 




STA 


MAXH 


/TO 




LDA 


ROM 


124 


PLA 




186 


Qt>2b 


LDA 


LIGD 






LDY 


f?Q0 


125 


STA 


VTVIR 


187 




CMP 


LICF 






LDA 


(LOMEM) , Y 


126 


LDA 


ROM 


188 




BNE 


TRCOL 






CMP 


#$41 


127 


RTS 




189 




JSR 


TRAIT 


OO 




BNE 


SPPERR 


128 *********** 




190 




LDA 


#$00 


£1 




INY 




129 ADTX 


LDA 


TXTFTR 


191 




STA 


LIGF 


£A 
OO 




LDA 


(LOMEM) , Y 


130 


CLC 




192 




CLC 




c n 
e,y 




CMP 


#$80 


131 


ADC 




J. J -J 




BCC 


LIGSUI 


7D 




BNE 


SPPERR 


132 


STA 


TXTFTR 




TRCOL 


LDA 


COLD 


f 1 




INY 




133 


LDA 


TXTPTR+1 


1 95 




CMP 


C0LF 


7 'J 




LDA 


(LOMEM) , Y 


134 


ADC 


$300 


196 




BNE 


COLSUI 


> -j 




STA 


LONG 


135 


STA 


TXTPTR+1 


197 




LDY 


MAXH 


7 A 




INY 




136 


RTS 




i 98 

J- 




LDA 


#$20 


7F 

/ *J 




LDA 


(LOMEM) , Y 


137 SPCADRE JSR 


ADTX 


1 00 




STA 


(ADR) , Y 


7£T 




STA 


ADP 


138 


JSR 


[J JZj i DJ J j 






LDA 


#$00 






INY 




139 


CPX 




Zui 




STA 


C0LF 


IB 




LDA 


(LOMEM) , Y 


140 


BNE 


SPCl 


202 


COLSUI 


INC 


MAXH 


79 




STA 


ADP+1 


141 


JSR 


0PT1 


203 




LDA 


MAXH 


80 




CLC 




142 


JSR 


OPT 2 


204 




CMP 


DIM1+1 


31 




BCC 


SPPS 


143 


CLC 




205 




BEQ 


LIGSUI 
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206 




INC 


COLF 


207 




CLC 




208 




BCC 


TRCOL 


209 


LIGSUI 


JSR 


AD80 


21Q 




LDA 


§$00 


211 




STA 


MAXH 


212 




STA 


COLF 


213 




INC 


LIG 


214 




INC 


LIGF 


215 




LDA 


LIG 


216 




CMP 


DIM2 


217 




BEQ 


0PT2FIN 


218 




BNE 


0P2B 


219 


0PT2FIN 


LDA 


ROM 


220 




RTS 




221 


** 






222 


TRAIT 


LDA 


t$20 


223 




LDY 


i$oo 


224 


TRBL 


STA 


(ADR), Y 


225 




INT 


I 


226 




CPY 


DIM1+1 


22 7 




BEQ 


TRFIN 


228 




BNE 


TRBL 


229 


TRFIN 


RTS 




230 


**** *VIS UALISATION 


231 


SPVIS 


LDA 


DIM1+1 


232 




JSR 


CHMAX 


233 




JSR 


INPUT 


234 




DEC 


MAXH 


235 




DEC 


MAXV 


236 




JSR 


SPNDEB 


237 


SPVISU 


INC 


$4E 


238 




BNE 


BIT1 


239 




INC 


$4F 


240 


BIT! 


BIT 


$C0O0 


241 




BPL 


SPVISU 


242 




LDA 


$C0OO 


243 




BIT 


SC010 


244 




CMP 


#$9B 


245 




BEQ 


SPVFIN 


246 




CMP 


f$8D 


247 




BEQ 


SPVFIN 


248 




CMP 


#$88 


249 




BEQ 


SPVGAUCHE 


250 




CMP 


t$9S 


251 




BEQ 


SPVDROITE 


252 




CMP 


#$8D 


253 




BEQ 


SPVHAUT 


254 




CMP 


f$8A 


255 




BEQ 


SPVBAS 


256 


SPWAIT 


JSR 


INIADR 


257 




JSR 


SPWDEB 


258 




CLC 




259 




BCC 


SPVISU 


260 


SPVGAUCHE T.DA HTVTR 


261 




BEQ 


SPWAIT 


262 




DEC 


HTVIR 


263 




CLC 




264 




BCC 


SFWAIT 


265 


SPVDROITE LDA HTVIR 


2 66 




CMP 


MAXH 


267 




BEQ 


SPWAIT 



268 INC HTVIR 

269 CLC 

270 BCC SPWAIT 

271 SPVHAUT LDA VTVIR 

272 BEQ SPWAIT 

2 73 DEC VTVIR 

274 CLC 

275 BCC SPWAIT 

276 SPVBAS LDA VTVIR 

277 CMP MAXV 

278 BEQ SPWAIT 

279 INC VTVIR 

280 CLC 

281 BCC SPWAIT 

282 SPVFIN STA $09 

283 RTS 



Source 'BIGS AVE' 

Assembleur Big Mac, 
format TEXT 

1 ***************** 

2 * TRANSFER T-ECRAN 

3 *ENTRE-$5180~ET-CARTE16K 
******* ****** if* ** 



5 


ADP 


EQU 


$18 


6 


ADR 


EQU 


$1A 


7 


RAM 


EQU 


$C083 


8 


ROM 


EQU 


$C082 


9 




ORG 


$935B 


10 


VERMEM 


LDA 


i$lA 


11 




STA 


K1B2+1 


12 




STA 


K2B2+1 


13 




LDA 


tsis 


14 




STA 


K1B2+3 


15 




STA 


K2B2+3 


16 




JMP 


TRANS 


17 


VER16K 


LDA 


i$18 


18 




STA 


K1B2+1 


19 




STA 


K2B2+1 


m 




LDA 


i$lA 


21 




STA 


K1B2+3 


22 




STA 


K2B2+3 


23 


TRANS 


LDA 


t$51 


24 




STA 


ADP+1 


25 




LDA 


#$80 


26 




STA 


ADP 


27 




LDA 


#$00 


28 




STA 


ADR 


29 




LDA 


#$D0 


30 




STA 


ADR+1 


31 


BANK1 


LDA 


RAM 


32 




LDA 


RAM 


33 




LDX 


#$00 


34 


K1B1 


LDY 


#$00 


35 


K1B2 


LDA 


(ADR) , r 


36 




STA 


(ADP) , Y 


37 




INY 




38 




BNE 


K1B2 


39 




INC 


ADR+1 



40 




INC 


ADPll 


41 




INX 




42 




CPX 


#$30 


43 




BNE 


K1B1 


44 


BANK 2 


LDX 


#$08 


45 




LDA 


RAM, t 


4 6 




LDA 


RAM, X 


47 




LDA 


#$00 


48 




STA 


ADR 


49 




LDA 


#$D0 


50 




STA 


ADR+1 


51 




LDX 


#$00 


52 


K2B1 


LDY 


#$00 


53 


K2B2 


LDA 


(adr) , r 


54 




STA 


(ADP) , Y 


55 




INY 




56 




BNE 


K2B2 


57 




INC 


ADR+1 


58 




INC 


ADP+1 


59 




INX 




60 




CPX 


#$10 


61 




BNE 


K2B1 


62 


FIN 


LDA 


ROM 


63 




RTS 





Scfieniateur, . . 

suite 

Le programme de des sins de 
graphes et functions du numero 
31 de Pom's merite un petit patch 
pour permettre la lecture des 
fichiers sur des disquettes ne 
contenant pas la routine de 
chargement rapide : 

* Dans le programme 
Schema tfiiir, 

Aj outer : 

2365 PRINT DS "BLQADCHAR(jE . 
OBJ,A$9000" 

Modifier : 

2100 CALL 3C8C4 
2390 CALL 36864 

• Dans le programme Gravure, 
A jauter : 

145 PRINT D$ "3LQADCHARGE . 
OBJ,A$9000" 

Modifier : 

160 CALL 36864 : &"GRAV.C" 
,AG 

260 HGR .■ POKE 49234,0 : C 
ALL 36864 1 &IM$,8192 



Pom's n° 32 



23 



Recapitulation 
BIGPTR 

Apres avoir saisi eerie table sous 
moniteur, vous !a eauvegarderez par 
BSA VE BIGPTR,A$300,L$30 

0300:00 04 80 04 00 05 SO 05 

0308:00 06 SO 06 00 07 80 07 

0310:28 OA AO OA 28 05 A3 05 

0318:28 06 AS 06 28 07 AS 07 

0320:50 OA DO OA 50 05 DO 05 

0328:50 06 DO 06 50 07 DO 07 



Recapitulation 
'ECR-VIRT 

Cette recapitulation 
regroupe les objets issus 
des trois sources et la table 
BigPtr 

Apres avoir saisi ce cods sous 
moniteur, vous le sauvegarderez par 
BSAVE ECR-VIRT,A$9180,L$480 



91 80 :A9 


4C 


8D 


r j 


U J 




?y 


ifU 


9188 : Ft 


03 


A9 


91 


8D 


r / 


rt 3 
03 


Dl/ 


91 90 :fl8 


A5 


OA 


FO 


OF 




\JU 


to 


9 1 98 1 OB 


A9 


01 


85 


OA 


A9 


■j n 
jU 


aD 


91 AO : 0c 


18 


30 


08 


A9 


80 


85 


QB 


91AR:A9 


60 


85 


GC 


A5 


06 


C9 


02 


91BO:F0 


07 


AS 


00 


85 


09 


18 


90 


91B8:04 


A 9 


03 


85 


09 


98 


C9 


48 


91CV.F0 


ID 


C9 


13 


FO 


1C 


C9 


57 


91CB:F0 


IB 


eg 


50 


FO 


lA 


r.9 


4R 


9iou:tv 


19 


C9 


54 


FO 


18 


C9 


56 


91D8-.F0 


1 7 


A2 


10 


4C 


1 <? 


fik 


4C 


91E0:F4 


91 


4C 


A9 


92 


4C 


Fl 


32 


91EB:4C 


00 


94 


4C 


03 


94 


4C 


34 


91rV;93 


4C 


06 


94 


20 


09 


94 


20 


91FB:F5 


E6 


86 


F9 


8A 


C5 


OC 


BO 


9200 :2F 


20 


ra 


iSb 


£4 


QU 


BO 


28 


9208: SB 


86 


FA 


3A 


C5 


F9 


90 


20 


9210:20 


F5 


E6 


8b 


FB 


A5 


OB 


FO 


9218: 04 


E4 


OB 


BO 


13 


20 


F5 


E6 


922018S 


FC 


Ai 


OB 


FO 


04 


E4 


OB 


9228: BO 


Of 


Ei 


FB 


90 


02 


BO 


05 


9230 :h2 


4D 


4C 


19 


D4 


20 


OC 


94 


0238 :A2 


00 


E4 


F9 


90 


08 


E4 


FA 


9240:90 


OB 


AD 


82 


CO 


60 


E8 


20 


9248 ;5A 


92 


IB 


SO 


ED 


A4 


FB 


A9 


9250 :A0 


91 


18 


C4 


FC 


C8 


90 


F9 


9258: BO 


EC 


18 


AS 


18 


65 


OB 


85 


9260:18 


AS 


OA 


55 


19 


85 


19 


60 


9268:20 


09 


04 


20 


F5 


E6 


S6 


07 


9270 :E4 


CE 


BO 


78 


20 


F5 


E6 


86 


92 18:08 


E4 


CF 


BO 


OF 


A9 


00 


85 


9280:10 


85 


1C 


85 


18 


A9 


DO 


85 


9288 : 1 9 


A6 


09 


3D 


83 


CO 


BD 


83 


9290 :c.n 


A9 


DO 


35 


FD 


A9 


93 


85 


9298 7 FE 


60 


A5 


ID 


18 


OA 


AS 


Bl 


92 AO :FP 


85 


1A 


C.8 


m 


FD 


85 


IB 



92A8:60 20 4 A 93 20 68 92 A5 
92B0-.1C C5 07 90 2B 10 A5 07 
92B8:69 17 C5 1C 90 2A 20 9A 
92C0:92 A4 08 A2 00 86 IF 93 
92C8-.48 A4 IF Bl 1A 85 FF 68 
92D0:A8 A5 FF SI 18 C8 E6 IF 
92D8-.A6 TF EO 28 90 E9 E6 ID 
92E0:E€ 1C 20 5A 92 18 90 Q7 
92E8-.AD 82 CO SO A2 4D 4C 19 
92F0:D4 20 4A 93 20 68 92 A5 
92F8-.1C C5 07 90 2B 18 A5 07 
9300:69 17 C5 1C 90 2A 20 9A 
9308:92 A4 08 A2 00 86 JF Bl 
9310:18 85 ft" 98 48 A4 IF A5 
9318:FF 91 1A 68 AS CS ES IF 
9320: A6 IF E0 28 90 E9 E6 ID 
9328-.E6 1C 20 5A 92 18 90 C7 
93 JO: AD 82 CO 60 20 09 94 2 
9338 :F5 E6 E0 01 FO 09 E0 02 
9340:F0 05 A2 3D 4C 19 U4 86 
9348;06 60 AS OC 38 E9 17 85 
9350:CE A5 OB 38 E9 27 85 CF 
9358:60 FB 00 A9 1A 8D 99 93 
9360 :8D BD 93 A9 18 80 9B 93 
9368 :8D DF 93 4C 7E 93 A9 18 
9370 :8D 99 93 8D BD 93 A9 1A 
937S:8D 9B 93 3D BF 93 A9 51 
9380:85 19 A9 80 85 18 A9 00 
9388:85 1A A3 DO 85 IB AD 83 
9390-.C0 AD 83 CO A2 00 AO 00 
3398-.E1 1A 91 18 C8 DO F9 E6 
93A0-.TR F.6 19 E8 EO 30 DO EE 
93A8:h2 08 BD 83 CO BD 83 CO 
93B0:A9 00 85 1A A3 DO 85 IB 
93B8:A2 00 AO 00 Bl 1A 91 18 
93C0-.C8 DO F9 E6 !J3 F.6 19 Efl 
93C8:E0 10 DO EE AD 82 CO 60 
93DO:00 04 BO 04 00 05 80 05 
93D8;00 06 80 06 00 07 80 07 
93E0:23 04 AS 04 28 05 A3 05 
93E8;28 06 AS 06 28 07 A3 07 
93FO-50 04 DO 04 50 05 BO 05 
93F8Z50 Ob DO 06 50 07 DO 07 
9400:4C 21 94 4C B9 94 4C 75 
9408:95 4C AB 94 A9 00 85 1C 
9410:85 ID 85 18 A9 DO 35 19 
9418:A6 09 BD 83 CO BD 83 CO 
9420z60 AS 07 48 AS 09 49 A5 
9428: OC 85 CE A5 OB 85 CF DO 
9430:02 C6 CF 20 68 92 AD 82 
9438:C0 AO 00 Bl 69 C9 41 DO 

9440:19 CS Bl 69 C9 80 DO 12 
9448 :C8 Bl 69 85 IE C8 Bl 69 
9450:85 1A C8 Bl 69 85 IB IB 
9458:90 05 A2 B0 4C 19 D4 20 
9460:0C 94 AS 1C C5 07 FO OA 
9468:B0 37 20 5A 92 E6 1C 18 
9470:90 F0 AO 00 Bl 1A 09 80 
9478 :C9 CO B0 OA 48 A5 32 C9 
948Q;7F DO 15 68 09 40 25 32 
9488:48 98 85 FF IS 65 08 AS 
9490:68 91 18 A4 FF 18 90 04 
9498:68 18 90 EA CR (74 IF 90 
94A0:D3 68 85 08 68 85 07 AD 
94A8-.82 CO 60 A5 B« Ifl 69 01 



9480:85 B8 AS B9 63 00 85 U9 
94E9:60 20 AB 94 20 F5 EG E0 
94CO-.02 DO 09 20 DC 94 20 0C 
94C9-.95 18 90 07 E0 01 DO 07 
94D0-.20 DC 94 AD 82 CO 60 A2 
94D8-.B0 AC 19 D4 20 0C 94 20 
94E0:6? 95 20 5A 92 E6 1C A5 
S4E8-.1C C9 5F F0 18 AG OA EO 
94FQ-.00 FO 04 C9 2F FO QE A9 
94F8:20 AO 00 91 18 A4 OB 88 
9500:91 18 18 90 DD 20 67 95 
9508-.AD 82 CO 60 20 FS E6 36 
9S1f!:F9 20 F5 E£ 86 FB 20 OC 
9518:94 A9 00 85 FC 85 FA 85 
9520:CF A5 F9 CS FA DO OA 20 
9528:67 95 A9 GO 85 FA 18 90 
9530: ID A5 FB C5 FC DO OA A4 
9538:CF A9 20 91 18 A9 00 85 
9540:FC E6 CF AS CF C5 OB FO 
9548:05 E6 FC 18 90 E3 20 5A 
9550:97 AQ 00 85 CF 85 FC E6 
9558 :1C ES FA A5 1C C5 OC FO 
9560:02 BO BE AD R? CO 60 A9 
9563:20 AO 00 91 18 C8 C4 OB 
9570:F0 02 DO F7 60 A5 OB 20 
9578:4 A 93 20 68 92 C6 CF C6 
9580 :CE 20 Fl 92 R6 4E DO 02 
9588:E6 4F 2C 00 CO 10 F5 AD 
9590:00 CO 2C 10 CO C9 9B FO 
9598:45 C9 8D FO 41 C9 88 FO 
95A0:15 C9 95 FO 1 A C9 SB FO 
95A8:21 C9 8A FO 26 20 OC 94 
95B0-.20 F7 92 IB 90 CF. AS 08 
95B8:FQ F3 C6 08 18 90 EE A5 
95CD:08 C5 CF FO ES E6 08 18 
95C8:90 E3 AS 7 F0 DF C6 07 
95P0:19 90 DA A5 07 C5 CE FO 
95D8:D4 E6 07 18 90 CF 85 09 
95EO.-60 90 CF 85 09 60 00 00 
95E8:BB BB 00 00 BB FB 00 GO 
95F0-.BB BB 00 00 BB FB 00 00 
95F8:BB BB 00 00 BB FB BU 04 



Un collaborateur de 
Pom 's vend : 

Macintosh 51 2Ko 
etendu a 7,5 Mega 

(carte Max), 
Lecteurs interne & 
exferne 400Ko, 
imageWriter 
MacPaint, MacWrife, 
LSD Compta. 

Domicile ; 
(16)97810409 
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e but de ce montage est 
de permettre a votre 
Apple favori de detecter 
f la sonnerie du telephone 
afin de provoquer 
l'execution d'un logiciel (serveur, 
repondeur telematique, comptcur 
d'appels, envoi ou reception de 
fichiers etc.). La presence de la 
sonnerie se traduit par la 
fermeture du bouton joystick n° 
c'est-a-dire <3. La sonnerie 
detectee, le programme 
d'application devra se charger de 
decrocher la ligne, connecter le 
modem ou autre. 



Principe 



Le couranr de sonnerie est nn 
signal aloernatif a. 100 Hz. Le 
condensateur 2,2 utF 'filtre' ce 
signal qui est reduit a une tension 
raisonnablc par la resistance de 
390 il. Le pont de diodes et le 
condensateur redresse le signal 
qui devient continu et active le 



2,2 pLF 
100 V 



reiais. Ce dernier se comporte 
comme un bouton de joystick et 
est connecte avec une resistance, 
comme indique dans les Manuels 
de Reference Apple. A noter que 
l'Apple est a 1'abri des soucis 
puisqu'il est isole du reseau 
telephonique par le reiais. 

Le programme 

Dans le programme, il suffit de 
tester i'octet (-16287) : une 
valeur egale ou sup^rieur a 128 
indique que la sonnerie est en 
cours. En assembleur, le test du 
bit 7 donne Vindication : a 1 le 
telephone sonne, a 0, il ne sonne 
pas. A noter qu'on peut simuler 
la sonnerie en pressant la touche 

On peut s'inspiier du programme 
DETECT qui attend un certain 
temps avant de signaler la 
sonnerie : cela evite la detection 
des Lintements parasites tels celui 
du au raccroche du combine. 



Z9Q 



LI 



AA/V 



< 



Vers prise 



L2 




En pratique 

Le petit montage s'effectuera sans 
difficult^ sur une plaque d'essai. 
LI et L2 sont a relier a la prise 
gigogne standard intercalee entre 
la prise murale du telephone et 
I'appareil telephonique. Ccs fils 
sont a connecter aux bornes I et 
3. 11 ne faut pas oublier de relier 
les bornes des cotes male et 
femelle pour que I'appareil 
telephonique fonctionne toujours. 
Cote Joystick, la numerotation de 
la prise correspond a celle de la 
DB 9 a l'amere de l'ordinateur. 



Programme 
DETECT 

10 A$ = "he telephone ne s 

onnc pas 
20 B$ - "Le telephone sonn 

e 

30 HOME 

40 PRINT : PRINT : PRINT 
1 PRINT "Etat lie la 11 
gnG : " 

50 FOR W = 1 TO 10: VTAB 

10: HTAB 1 
60 VTAB 10: HTAB 1 
70 IF PEEK ( - 1628 7) > 

127 THEN NEXT : PRINT 

B$: GOTO 5 
80 PRINT A$:W = 1: GOTO 6 





Reiais 9 V 



470 O 



Vers v 
Apple /// 

Prise Joystick 
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m objet d'U n i ma te , 
m programme de Cirtech, 
JL^J est d'utiliscr les 
^^^^ programmes DOS 3.3, 
Pascal ou CP/M sur les Unidisks 
3'5. E permet de faire fonctionner 
sur un support plus plaisant et 
spacieux des applications 
allergiques a ProDOS ou 
difficilement transposables : void 
un programme qui meriterait 
d'accumpagner chaque lecteur 
8OOK0... 

Unimate est livre* sur une 
disquette lisible en DOS 3.3, en 
Pascal ct en CP/M. II est 
compatible avec tous les Apple //. 
Depuis chacun des systemes 
d'exploitation, les fichiers 
concerned sont copiables 
directement. 

Un d6marrage sur la dasquette 
Unimate donne acces a un mode 
d'emploi imprimable en anglais. 
II est succinct car a part 
i'installation des drivers, 
l'utilisation est totalement 
transparente, 

DOS 3.3 

La methorte retenue est 
I'installation d'une modification 
au DOS. II convient de demarrer 
en DOS 3.3, puis d'execuier le 
programme livre : le DOS en 
memoire est alors modifie et il 
suffit d'initialiser des disquettes 
3'5 (ou 5'25) qui cnmporteront le 
nouveau DOS ; ellcs sont 
bootables. 

Chaque Unidisk 3 '5 est reconnu 
en DOS 3.3 comme deux disques 
de 400Ko, Deux Unidisks en 
Slot 5 seraient reconnus comme 
grant : 

S5, Dl 
S5,D2 

35, D3 
S5,D4 

Seule precaution, pour initialiser 
le disque du deuxieme lecteur, 
faire init hello, d3 et non pas 
D2j sinon... 

Les deux faces s'initialisent alors 
simultanement et le hello est 
installe* en D3. 



Une limitation : le numero de 
volume n'est plus verifie sur 
1'Unidisk. 

Un PUD adapts (nomme UNIFID) 
est egalement livre pour pcrmettre 
les copies sur disques 3*5,. 

Pascal 1.1, 1.2 

Les 'drivers' livres permettent a 
Pascal 1.1 de reconnaitre deux 
Unidisks comme etant les 
volumes 9 et 10 de ROOKo 
chacun. Pour la version 1.2, ce 
seront les volumes 19 et 20. 

Un nouveau FORMATTER livre 
autorise le formatage des disques 
5'25 et 3'5. 

CP/M 2.23, 2.20B 

Le driver necessaire est installe 
par rexe"cution d'un programme 
lors du demarrage. 

Pour CP/M 2.23, les Unidisk 
seront les volumes c .- et D .- ; 
et f .- pour la version 2.20B. 
Chaque volume Unidisk 



comporte 78SKo. 

Un programme de formatage est 

egalement livre\ 

Speedisk 

Grace a Unimate, il est possible 
d'utiliser la cane Ram Speedisk 
sous DOS 3.3. La carte SP1000 
de 1 mega-octet se trouve alors 
reconnue comme les Unidisks : 
on dispose de deux lecteurs 
virtuels de 400 Ko sous DOS 
3.3. 

Place faite au DOS et au catalogue 
(qui accueille 216 fichiers), il 
rcste disponible 2 fois 376 832 
octets pour les fichiers sur la 
carte. Un "plus" pour les 
applications allergiques a 
ProDOS. 

Unimate est distribid par Alpha 
Systemes, 29, bid Gambetta 
38000 Grenoble. 

3 




EffectivemeiiL, I'Apple //e ne considere pas que la cane controlcur dc 
1'Unidisk 8OOK0 est susceptible de le faire demarrer, meme si cetre carte 
est dans le port 6 et les lecteurs 140Ko en pon 5. Pourtam, neuf fois sur 
dix, on souhaite utiliser le lecteur 3'5 ce qui conduit a un CTRL-RESET, 
suivi d'un PR£5 au clavier : pas eI6gant. 

On peut laisser sur le lecteur 140Kn un programme Basic du style 
PRINT CHR$(4)"PR£5" mais c'est lent. La solution la plus rapide 
semble de mettre l'ordre PR£5 sur le secteur de la piste de la 
disquette 5T/4 : a l'aide d'un editeur de secteur (Bag of Tricks, Copy 
][+, Mobby Disk.. .), mettre les octets suivants : 

01 convention 

AS 2B T.DX $23 arrete le lecteur 5 1/4 

BD 88 CO LDA $C088,X 

4C 00 CS JMP $C500 = Pi?£5 

Le dernier octet est a remplacer par C4 pour un demarrage sur le port 4 
par exemple. Cette disquette de demarrage pourra alois tester a demeure 
dans le lecteur 140 Ko. 

G 
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CAT, commande 
cxtcrnc ProDOS a 
pour ohjet de lister 
tous les fichicrs d'un 
volume, qu'ils se trouvent au 
niveau ou dans un emieme 
sous-dossier. II est ecrit en 6502 
pour fonctiormer sur tous Apple // 
sous ProDOS versions 1.1 et 
suivantes ; poor les versions 
amerieures de ProDOS, il faudra 
modifier le relogeur pour qu'il 
recherche lui-meme la place en 
mdmoire. 

Lc source, abondammcnt com- 
mente, contient toutes les 
explications necessaires a son 
utilisation mais il reste quelques 
precisions a apporter, 

L'assembleur 
ORCA/M 

* Le source occupe environ de 
50 % de la memoire disponible 
(environ 36 Ko) il peut done etre 
saisi en une seule fois, confort 
non negligeable ; 

■ si un commentaire est place 
apres une instruction, le point 
virgule n'est pas obligatoire ; 

* a nop permet de ne pas ecrire 
d'instruction apres un label (anop 
ne genere pas de code: e'est 
1' equivalent de ':' pour LISA) ; 

* keep xcat i le code genere est 
sauvegarde automatiquement 
sous le nom 'xcat' (equivalent du 
DSK de ProCODE) ; 

* £< et £> signifient respec- 
Eivement partie basse et partie 
haute ; 

* ds n : reserve n octets en 
memoire et les initialise a zero ; 

- dc il 'nl, n2, . . ,np' ". d6finit 
les entiers nl, n2, np chacun 
sur un octet ; 



- dc 12 'label • ; rentier label 
est stocke sur deux octets (bas, 
haut). Cette instruction permet de 
stocker l'adresse label ; 

- dc c 'chaine' I dtSfinit la 
chaine de caractfcrcs 'chaine' (bits 
7a0); 

* les instructions implicates a$l, 
lsr, ror, rol doivent etre 
suivies de a. 



Le fonctionnement 
de XCAT 

• On commence par verifier si la 
commande est bien XCAT : si ce 
n'est pas le cas, on en fait cadeau 
aux eventuelles autres 
commandes extemes ; 

• si e'est pour nous : on 
demande a ProDOS d'analyser 
les parametrcs qui peuvent etre 
soit un nom de volume, soit un 
numero de slot et/ou drive ; 

• si un nom de volume est 
demande, on utilise ON LINE 
pour savoir dans quelle unite il se, 
trouve. S'il existe, on met le 
numero de l'unite dans la table 
des parametres de READ 
BLOCK ; 

- si S ou D est utilise", on calculc 
le numero de l'unite et on termine 
couiuie ci-dessus ; 

• on lit le bloc 2 de l'unite" 
choisie, on verifie qu'il s'agit 
bien d'un disque ProDOS ; dans 
l'affirmative, l'analyse peut 
commencer ; 

• celle-ci se fait tres simplement 
en lisant Tun apres l'autre les 
blocs de ce catalogue et en 
analysant les 13 entries de 
ehaque bloc. Un catalogue ou 
sous-catalogue est termine quand 
le chainage avant est egal a 00 00. 



Au cours de l'analyse d'un 
catalogue, si on trouve le nom 
d'un sous-catalogue, on sauve 3 
octets sur la pile : le numero du 
bloc en cours et le numero de 
l'enregistrement, on procede 
ensuite a l'analyse du 
sous-catalogue ; quand celui-ci 
est termine", on depile les 3 octets 
sauv^s et on reprend le catalogue 



Exemple d'ex6cuUon 



SXCAT /SPDK/ 



3-SZ?-S7 

me biocj hbdifis 



LIB 

ssstl 

SiM>nse,s 

OUTPBT.S 

am. 

HON. (5C02 

souses 
21. start. s 

PJ.fHiW. I 
21 .LWft.i. 



Loot 

DIV 
«£A£JW. ffYSTSM 

PAfWS 

PA.S 

PA 



PP.OC 
CP J J 
SH20 

KMia 

CI 70S 

estmos 

Si SCOT 

nut 

XXBPTOS 

IKT2RP0ISS, VI 
COP1EPM4 
7. POME 
XCAT 

WkilL.SISl'AH 



ftt 



BID 
Bin 



TXT 

txt 



«•« 
sra 
svs 

aw 

TXT 



TXT 
TXT 
TXT 
TXT 
TXT 
ITS 

srs 

SYS 

sm 

BUS 

sin 

TXT 
SIN 
SIN 
STS 
BIN 



1 27-AVC-87 
3 21~\VG-B7 



21-AUG-67 



S 2/-AUG-MJ 



£7-Aua-67 

27 AUG S7 
ABC fl» 
27-AVG-87 
27-AUC-B7 
27-ATXJ-H7 
?7-A!in-a7 



27-AVG-S7 
27-M1G-87 
27-AOG-a? 
2 7-AVG-8? 

17-AVS-aT 

31-AUG-B? 
27-AOS-S1 

iit; 

31-AVS-S7 
9-SSP-S7 
7-SEP-S7 

31-JWC-87 

31-AUG-B' 
V^SXP-Hf 

31-AUU-S7 
9-SAPS7 



Hi, LISfiSS 

i 



flS OCCVrES i 1433 TOTAL I 2048 
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precedent la ou on l'avait laisse. 
L'utiHsation de la pile permet une 
sauvegarde tres simple des 
valeurs indispensablcs a la reprise 
d'un catalogue sans perte de place 
dans lc programme et avec un 
controle tres simple de la 
profondeur : te poinreur de pile 
etant sauvegarde au debut, il 
suffit a la fin d'un sous-catalogue 
dc comparer lc pointeur actuel et 
le premier pour savoir si tout a ete 
depile et si on est dans le 
catalogue principal. 

Remarque sur la page zero 

La plupart des adresses libres en 
page z6ro sont utilisees. Si on 
souhaite preserver le contenu de 
ees adresses, il est possible de 
sauver la page zero dans le buffer 
de ProDOS (la moitM supeneure 
de ce buffer n'est pas utilisee par 
READ BLOCK). 

Structure des 
catalogues et de la 
bitmap 

Le catalogue principal comporte 4 
blocs : r>° 2, 3, 4 et 5. Chaque 
bloc est chatne au precedent et au 
suivant. 

Les sous-catalogues component 
au minimum 1 bloc auquel 
peuvent etre chaines d'autres 
blocs si le nombre de fichiers est 
superieur a 13. 

Chaque bloc comporte : 

octets $0 et $1 : 2 octets indiquant 
le n° du bloc qui le pi6cede 
(e'est lc chaSnage arriere): 
contiennent 00 00 si ce bloc est 
le premier ; 

octets $2 et $3 : numero du bloc 
suivant (chainage avant) : 00 
00 si ce bloc est le dernier ; 

la suite du bloc est partagee en 
13 entrees de fichier de $27 
octets chacune ; 

il reste 1 octet inutilise\ 

La premiere entree du bloc 2 ainsi 
que la premiere entree de chaque 
premier bloc de sous-catalogue 
contiennent des informations 
relatives a la disquette ou au 
sous-catalogue et sont legerement 



diff£rentes des entrees de 
fichiers. 

Bloc 2 lere entree 

(octets $4 a $2A). Elie contient 
l'en-tete du catalogue principal. 

XCAT utilise les octets suivants : 

$4 

• type de fichier (4 lers bits) : 
$0 fichier efface ou inexistam 
on effacd, 

Mode d'emploi 

Si vous n'avez pas la disquette 
d'accompagnement Pom's, il vous 
faut saisir et sauvegarder le code 
XCAT. 

La commands externe est disponible 
apres avoir tape en mode direct : 

- XCAT 

ou, par programme : 

PRINT CHR$(4) "-XCAT". 

Pour obtenir le catalogue etendu, 
taper simpiement : 

XCAT /nom de volume/ OU 
XCAT ,Ss ,Dd 

s i d etant le numero de port et de 
lecteur, 

Le listing peut etre suspendu et 
repris a i'aide de la barre d'espace ; 
il est stoppe par CTRL C. 



<%> 



$D fichier sous-catalogue, 

$E en-tete sous-catalogue, 

$F en-tete catalogue. 
• longueur du nom de la 

disquette (4 demters bits d'ou 

la limitation a 15 caracteres) ; 
$5 a $13. 

nom de la disquette ; 
$27 et $2S 

numero de bloc de la bitmap , 
$29 et $2A 

nombre maximum de blocs du 

support. 



ler bloc de sous- 
catalogue, lere entree 

On utilise seulement les octets $4 
a $13 (comme ci-dessus). 



Entries de fichiers 

(Les numeros d'octets sont 
donncs par rapport au debut de 
renregistrement). Les octets 
utilises sont les suivants : 

$0 

type de fichier, longueur du 

nom (voir ci-dessus) ; 
$1 a $F 

le nom ; 
$10 

type de fichier (HAS, BIN, 

TXT, ...) ; 
$11 et $12 

numero du ler bloc du fichier ; 
$13 et $14 

nombTe de blocs occupes par le 

fichier ; 
$21 et $22 

date de derniere modification 

du fichier (a lire a l'envers 

$22, $21). 



La bitmap 

Elle occupe generalement le bloc 
6. Chaque octet renseigne sur 
l'occupation de 8 blocs : un bit 
est a 1 si le bloc est libre et a si 
le bloc est occupe\ 

Sur une disquette 140 Ko il y a 
done 35 octets utilises (280/8) et 
200 octets pour une disquette 800 
Ko (1600/8). 

♦ 

Bibliographie 

Organisation d'une disquette 
ProDOS : 

• Guide ProDOS P. Beaufils W. 
Luther, Editions Sybex 

• Beneath Apple ProDOS, 
Quality Software 

Relogeur, commande externe : 

• numeros anterieurs de Pom's. 
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Pom's n° 32 



Source XCATS 
Assembieur OHCA/M 



coirjiajide exteme XUT permettifit tfe lister le catalogue 
et les xous-ca taJojueJ d'une tfisgiiet te Preens 

fi Syivie (HLlsr pour POM'S Juillet 19J7 



lift on 
err on 
S5*]« off 
S5C02 oft 

stiaddl On 
ieep Jt/HCht 

org $2CQQ 

START 



; EQUATES: 




Relegeui tres semblahle a celui de POM'S n° 2S et 
lesjerement modifii pour reiojer les appals IU Mtr 

II se cftarne d 'Installer la comirrancfe exteme entre ProDOS 
et ies Suffers. 

Getbllfe ji'eeanE dispanible qu'avec les versions ProDQS 1.1 
et sulvantes, tine petite jcodification sera necessaife pour 
ie* wpr*forr!f anferletjres 

Initial i mr/wi 



ProDOS 





page ateroz 




hi mem 


geqp 


$n 




le/igtfi 


gequ 


$2F 


J ojigue u r dc 1 'ir, s i r\jz- i ~" 




gequ 


«« 


adresse de It liqnc desassembl&e 


■J 


gequ 


**C 


attres$e de depart pc'jr JsoVe 


*2 


gequ 


$JE 


adresse de fin * H 


m4 


gequ 




adtefse d'arrivee * " 


nbloc 


gequ 




nombre sui 2 cctets tbas*hi*l%} 




gequ 


$s 






gequ 


$1A 


loftgveur de now de volume 




gequ 


515 


indiedteur de $au* ignexent 


."■ f .f c ; -:■ . : 


gequ 


SIC 


ccirpteur d'enregiftrements dans cat. 


lucres 


gequ 


sin 


dezalage fife debut de Ugne 


pile 


-:; e q -j 




sauvetjarde du pointeuf de pile 


htab 


gequ 


$ir 


position horizontaie du curseur 


carteSQc 


je^u 




flag : carte SQ col active (pour eviter 








de Jul envoy er tin form- feed 


hittaap 


j e q u 


seb 


nwaero de bloc de la bitmap {bas f fiaut} 


hlocmax 


je^u 


$EQ 


nbre atax, de bless du support (has t haut; 


lignes 


gequ 




jiflftbre de lignss afii^hees 


ft* 




$F9 




ran 


gegu 


5FA 


oois 


ii 




$F3 


Jour 


adr 


gequ 


■$FG 


Adresse teapora i re 


ptr 


gequ 


$FE 


" 


„- joujs -programme.? ponjteyj- 


et adresses systeme: 


Xipprint 


gequ 


$EB24 


affiehg en decimal le ■contain de J^^Jf 


ltisdsp2 


gequ 


$F&BC 


disassemble la iig/ie fj?ci/ 


move 


qeq - 


SFE2C 


conrae sen fiom 1 'indique 


prbyte 


gegu 


fFDBA 


sffiebe fA) en 2 oniitres nexa 


kbd 


gegu 




lecture dlrecte clavier 


Jt&s-Cro&e 


gequ 


SCQ1Q 


initialisation claviar 


froDOS 


et BASIC. SYSTEM; 




typnuid 


gequ 


$B$8$ 


cedes des types de t lender ayant une 








jJbr eviction 


ty pi able 


gequ 




tdble ties atjrevlalions 


mois 


gegL 


&B3C1 


table des nous des mois 


mil 


gequ 


5BF0Q 


point d'entree do eroDOS 


extmctr.d 


: 


$0£Q6 


saut vers commande externe 


errcut 


gegu 


SBEC9 


allicne erreur et Tin 


badcall 


gequ 


5BEE3 


convertlt code erreur ttii en &As±t:.3 


qetbufr 


gequ 




seserve mj pages soms basic SfifflSH 


xtrnaddr 


gequ 




adresse cosuaande exteme 


Jilefl 


gequ 


SBES2 


Jangueux de commando 


xenum 


gequ 


$BE53 


n" de la cumaar.de 


pi?i ■- s 


gequ 


5B£54 


parasetres aistorises 


fblts 


gequ 


SBE5-6 


parametres effectlveaent trovves 


vpathl 


gequ 


?BE6C 


vecteur vers la coomande en tree 


syserr 


gequ 






jtre turn 


gequ 


$BE9E 


tin UTS qui qagne a etre eonnu 


Vslot 


gequ 


$BE$1 


n" slot trouve 


vdriv 


gegU 


S3ES2 


* drive " 


cpencnt 


gequ 




n&tobre fichiers ouverts 


vpatn2 


gequ 




flCffi de fichier 


■devent 


gequ 




noisbre de lenleurs 


output 


gequ 




octet bant idresse du perlph de sortie 


datesys 


gegu 




date courante 


long 


gequ 


f±i\-debut-t-?J(}Q longueur du proqraime m rejpger 



Inltl 



init2 



jotfteii 



J da mil 
cap £S4C 
beq Inltl 
ldy nonactif 
Ida nonactifry 
jsr outdo 
dey 

£.19 nabel 
rtm 

Ids opencnt 
Ida LSli 

jap erratic 

Ida extrncmd+2 
sta precmd+2 
Ida »Ktrnca<l*l 
st* ptBcsidtl 
Ida Olona 
Jsr ^etnufr 
cap LSOC 
bnm actr.pr. 
imp errout 



s£a adresse 

sta a *+l 

sta vxtrncmd+2 

Ida L>debut 

sta al+1 

Ida £.{fi[x~l 

sta al 

Ida £>£iij-2 

it a a2+l 

ldy 10 

sty al 

sty a! 

sty exti-tiond+1 
■far move 
Jsr re loge 
cts 



Ida 
sti 
Ida 
sta 
Idx 
Ida 

Ur 
ldy 
cpy 
line 
Jda 
cjgp 
tine 
rfey 
Ida 
cmp 
tine 
dey 
Ida 
cmp 
bne 
Ida 
clc 
adc 



adresse 

£0 
pel 

LO 

(pcl,x} 

rfin 

insdsp2 

length 

£2 

rsulvant 
fpcl) ,y 
£>mli 
notnll 

(poll *y 

£<atll 

nomli 

(pcli.y 

£.$20 

nothll 
U 



re J ogeur 



sta pel 
hoc nomll 
IflC pcl+l 

nomli Ida pel 
sta adi: 
Ida pcl+l 
sta adr+1 
ldy length 
jsr ealeul 

fsulvant Ida length 
sec 

adc pel 
sta pel 
Ida pcl+l 
adc £0 



eit-ee un JHP ? 
oui 

nan -> affiche message et fin 



y a-t-il des fichiers ouverts 7 
nan 

oui impossible placer la commande 
mess age FILE (Si STILL OPEN 



sauve adresse de la premiere 
ccissande exteme 



demande d*un buffer de (Al pages 

erreur ? 
nan 

Qlii -> affiche *NO BUFFERS AVAILABLE' 
et fin 

n* de la J -ere page aecord4e par 
ProDOS 



lev ^dresses de depart et d'arriwee 
$ant aJtgne.es -> potds fatbXe - Q 

deplace le programme 



adresse de reloge/nent 



necessaire oour insdsp2 

si 00 se&srant pragramss et dannees 

y - longueur instruction - i 
instruction stir J octets ? 
non -> pas de changement 
oui 

est^ce nn appel an MLI ? 
non 

peut-etre. . » 



est-ce un jsr ? 
non 

oui -> avsnce pel de 3 octets et 
traits les J octets sulvant jsr $BF0O 
q-Dntaie une Instruction A reloger 
t I'adrexse du buffer n' a pas besoin 
d "etre reiOfffie J 



passage de parsmetres pour calcul 



on passe a I 'instruction suivante: 
avec pel - pel + length 
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3ta pci+t 

sec 

sbc adcesse 
idx pel 
jsc CCJC 
bes rrln 

red 

cmp L>iin-cseisuc 
bec oul 
bne nan 

cpx t*ein-aet>uz 

ocs non 

clc 

rts 

sea 

rts 

efey 

Ida tadr) r y 

tax 

iny 

Ida fadr) I y 

sec 

SOC i->3e£}U c 

eec none 

Jsr test 

cc?s none 

add adresse 

sta [aan ,y 

clc 

eis 

sec 

rtS 



adresse ds 1 



distance fpcjj - aOresse stccXee zzr..s 
a tttS&} ec x tt-saf 

dj.SL.ar.-r_ longueur du . 

oui -r> on a sim 



A < Afire de pages du programme ? 
oul 

fron et fl ? nore de pages -> en fle/iors 

du progrdOQe 
on est nans is aermere page; 

& ^ poicte raicie de rin p 
non en aenors au programme 
dans les li riles 



par tie hasse de i 'operande. 



partie flau£e de I ' operands 

Scare; fen pages; entre adrosse et debut 
ecart < V -> opera noe en denors ties 

aaresses a mo-airier 
ecart >- U -> ecart > longueur du 

programme ? 

nan 

oul -> cn reloge 



adresse de dCtui ttu programme reloge 



SJttTAX ZFFGfi 



PATH NQT FQVNO 
RANGE EftffOfi i 
1NVALIQ PARAMETER 

SO & r JF=L-H AVAILABLE; 
.-■r Z7C = ^7-!> 77 71 



dolvenc etre ferm&s. 

errewr de lecture gfJsgye ( b^ac 

PrcflOS / . 

■UIMU.IWJC f — -- p dS iiitz -t / , 

nraa ia £vz.nnt / uu // , jjujw Cuntendnt 

des ca ia\ mi. ex e? s nun autuilscs J « 

2e vcJu/me n 'bsL - 

va;J eur en de/iot 5 dtfs iJau tes crc/t uzi jets . 

si o-n u(.J JiffE 'auLfes pu i u ",t j t ^ 



as $FF-fadresse-lnit} 



debut sera eg&le A $21 QQ 



I^UlOtJCUl ^ CAT; 



cat sJogrue 1 etendu cfe tPirt suppcrrt froDOS, tJi.sponl£ile en mo cfe 
direct cjit differ^. 

— Iss noflrs cfe tous les flctilers sons afflch-es avec una I/idenEacJo/i 
nrettdnr en evidence les saus-cacalogues. 

— II n'y a pas <de limitation du itosbre tie nlveawt d 'B^aiLs.'r.Er.z. 
ties sous-catalogues (sauf le sens}, I'InaeitlaEien est 
seiileatenz: li mli.ee £ £4 net 

- Les noas de cmlogues sani souJIgn 

** L,es iutres ricniers sonc suivls au type, au nambre ae alacs 

ei <Se la\ sate de demlete nrodif XCdCiOJi . 

-is nomare de blocs libres, occup&s* cocaJ esc striate, meme 
si xca. est lncerrompu svam la cin. 

- la dace courante est arricnGe er. cere du r . l . 7~g . 

installs ilon t 



aecuc dd 

Ida 
sta\ 
Ida 

sea 

Idy 

cenpsr JtJa 
cmp 
pub 
irty 
cpy 

GCC 

fiwy 
dey 
sty 
Ida 
3ta 
sea 
Itta 
sia 
Ida 
sci 

versuite Ida 

Ida 

sea 
Ida 
sta 
clc 
res 

nucRid sec 



pj-etrjncJ J m p jrreLurn 



synLaxez Ida £$10 

Jmp ezrvuL 



vpaLhl 
pLr 

vpaivUl r 1 
£1 

tptr),y 
command- 1 , 
nacmd 

£4+3 
camp&r 



syserr 
xcnuin 
ttuovi uauu 
pfolzs 

LtQQQQOl 00 

pbiis+i 
xsulte 

versulte-+l 
attA^ddr 

xtritaddt-i-i 



- - pour fairo TdJsr Yvnn Keenly 
v£j* t tt 1 poi a te sur 1 a coBtintrt dc 



compare la commands en f roe et 

cfi n'est pa? pour nous 

comma j3 de * xcs t ' ; 4 cara ct eres 

-> V - J 



n" commands ex tern e 
nora de f I eYii er a u E □ r i se 

sloe drive aiicarlses 

ucile au setilemefti 

a Lis esse a laqiielle PtetUUH tie's: a 
rtcfUs rappe^er a-pres analyse 
des pa r a met res 

rerour i provus s»ns erreur pour 

analyse des paramecres 

Utile s£ nocre comma-nde esc Ja seule 

au Xa deriilere pour signaler 1'erreur 

saut 4 la commande externa 

pi etz&dwnL& 

t-wd« dv 'SYNTAX EJfFGF r 



lLUI £0 
Irfd uutpLrt 

L«ttr ;iuff Ce- 
de* 

id> £ 



'btirn XCaC <i rj- '-XC^C ' 

utilisation; 



syncaxe; ^n erode direct; xca\t /nomvoluae/ , as , i/d 

en made dlrr*r*.- print cisr$ f4j "xcac™ sufvi evant ueii eaten t 
de parda^crcs (Constances on variables 
cfialnm) . 

les parasaetres sont optlonneis ; $S on les omet f ie ie-cxew 
par tf^raut sera uciiise. 

j a presence cfe parametres mejre 5 et D n# oiodirie pas le prelixe 
pur derauE. 

irreE tesiporaire ec reprise cm crerjiemene avec ttne ctiucne 
guelcon^ue. 



arret derinltir par CTRL-d dans oe cas, on arric-ne 
pour signaler qu'il reste peuc-etre cfes ficftiers. 



Ida (pLr) f y 

sLa Joncfueur 

cmp £.3 

Ltcc syn L axer 



ia sortie se raic sur le peripneriquB &n service t ecraii 40 
du «u ccuo-nnes nu imprimante f f elle est tvidemment plus 
cjaire en so comnnes- A 1 - imprimante r an saut de page est 
envoye touses Jes ty liqnes environ. 

messages a'erreur possibles : 



iTXXCfjfJ iTJUi -ufijtf : pour installer jcat, taus les fienleri 



Ida 
cmp 
line 
lay 
Ida 
cmp 
one 

chslastt iny 
cpy 
bos 
Ida 
Cflip 
beq 
cop 
ate 

csj cpy 
beg 
bne 

cs? cmp 
bec 
•zap 

occ 

CSip 



fptrj t y 
L9ZF 
syntaxes 
U 

<pt rj t y 

LfifF 

syntsxer 

l on gireu r 
no aw* 
fpcrj ,y 

iyncaxer 
tS2E 

csit 

LZ 

synt AXQ r 
ensiasn 

syntaxer 

ejyi 



mUp 55 fwlwsiJtf*" active f 
OUi — > cs-irteffOii - £srr 



uul fjU t ; j €f s (. Ly u_/c?ui f 6cf d 1 d f vp s Lfilj 
longueur du nam 
ell e va s vlr 
l&ngueur 3 7 

uuJ "> errtfur Tie /jewn dulc, c^nLunii 
au S2£nlnu7\ 2 / eL un car&tslei e ) 

lit le dernier caractere 

non 

Qui lit le j-er caractere 

T f 7 
fton 

oui -.> on cttercne un '/' incermediaire 



oui erreur 
nan 

oui -> en premier caractere ? 
oul ; erreur 
non .- autorise 

c 'tf' 

non 

c- f fjtn - code flfe ':' ) 

oui -> t ve?irier si pis en l-ere position 

o 'A' 
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pasvol 



bee syntaKer 
cmp C$$B 
bes syptaxer 
bee chslash 
jsr nomvol 

Ida fbitsH 
bne caJcwnj t 
Ida $BF9A 
beq dernier 
isr mil 
dc 11 '$C7' 
dc 12 'prefparm 1 
itt all 
ic 11 

da 12 'prefpa rn' 
bec dernier 
Idx pile 

far hidcall 
imp tarrout 
dernier Ida Jsvoit-J 

ir.'j stunit 
ealrunlt Ida. vdriv 

and 1502 

ill a 
esl a 
bra vslot 

*s2 a 
asl a 
a.t I ^ 

pfijnfr sra unite 



frmtfttt fois, e'est vralisent parti 



( SS9 - code dm 



a-t-en zQUtrni un parametre s ou d ? 

oui 

cunt lent si pas de prefix 
-> dernier lecteu! utilise 

cede de SET PREFIX 



code de SET PREFIX 



pas d'erreu? ? 
helas, si t 



fion -> an prend la derr.ieza unite accidee 

(son numero est En SBF3DJ 

toujour* 

contient 0000 DODO avec OD-61 (drive II 
ou OD-JD (drive 2) 
-> A - 0000 00D0 avec 0*0 (drive 1} 
eu D-J (drive 21 

-> A - 0000 P000 

vslot contient 0000 05SS 

-> A - 0000 PSSS 



D555 0009 



tsx 

stx pile 
Ida f-D 
sta incren 
sta bloclu+l 
sta compteur 
sta buffer 
sta debs scat 
dec debs scat 



alaligne 



Ida 
sta 
Ida 
sta 
sta 
jsr 
Ida 
cmp 
ben 

j 

ldy 
Ida 
iny 
era 
bne 
iny 
Ida 
cap 
beq 

noprodos Ida 
jmp 

prcdos ldy 
Ida 

sti 
Jny 
Ids 
sta 
iny 
Ida 
s ta 
iny 
Ida 
sta 
jsr 
3« 
jsr 
jsr 
ldy 

titrebel Ida 
jar 
dey 

Fintitre jsr 
jsr 
jmp 

bloasulv jsr 
analysed Ida 



hlmem+l 

buffer+1 

L2 

iicnes 
bloclu 
litbloc 
de vcr> t-2 

LSBO 
prodos 

10 

(himeir.i M y 

(h±sT.En)} r y 
ncprcdos 

thlmem) ,y 
U 

prados 

£9 

errout 
£921 



la pile va servir de zone de 
stocJtaije.. , .sauYons Is troioteur 
lecture du bloc 00 02 



-> debs scat - $FF , on devra 
soulianer le l-er hqib flchier 
iful est ceJui de id disgust to 
hifflera contient 1'acfresse du buffer 
brouillon de Pro PCS 
toujours pour Je bloc 2 



nussero dernier lecteyr accede 
est-ce Je rant disk ? (s3 r d2) juaiwjie 
si oui, inutile de verifier les 3 premiers 
octetf dy bloc 2 

on iit les 3 premiss octets de oe tJot 
si <> flu 00 03 —> m n 'est paj un 
diso;tje ProDOS t Jes ^ premiers 
ccrrespojident au chainaje arrl^t^s 
n'jls puisgue ce bJcc est Je pr eerier, 
Je 03 Jiorraaieerrent suivi de 00 
correspond du cftpiflage avant: fcl&t 
suivant du catalogue } 



jsitmap 
{AlfltemJ,/ 

fii'iiTiemJ.-y 

/niraeraj^y 
ijj ocnajff i 

dace cat 
crdo 

ti tres 

citres,y 

outdo 

titreiicJ 

crdo 

crdo 

anaJyseJ* 

litbloc 



sauve le fr" de JsJoc de J a bltfnap 
Cocteti et ^Jfi du fcloc 2) : 11 vaut 
presqve toitjours QQ 06 54uf pour /ram: 00 0'J 



siombie fliaxJ de i5ioe5 du Jirpport 
foctets et m du iJoc 2} 



injtlJe de reJir^ 2e Woe ,3 
arre: avec CTRIrC ? 



and l$7F 
cmp L3 

bne continue 
jmp ctric 
continue ldy conpteiir 
Ids lc*tb r y 
clc 

sdc himess 
sta litbu-ftj 
Ida tiighb r y 
ado ftJiaeicH 
sta lltbuf-i-2 
ldy £0 
jsr lltbut 



be$ suzvanz 
and £?FD 
cmp £?UU 
bne auires 
Ida cojrpteur 
pha 

Ida bloclu+l 
pha 

Ida blat^u 
ptia 

Ida L^i-i 1 
sta debssca ; 

jmp nouvbloe 
jsr espaces 
Jsr llibur 
ana L$G£ 
sta longueur 
tmx 
iny 

Jsr ll tflur 
Jsr outdo 
Iny 
dex 

5ne ar'fbcll 
fiit detisscat 
iaai aiaiigne 
jsr ItiXna 
jsr crdo 
Bit cfeosseai 
Jdpl suiwant 
inc o^fisscai 
jsr ^spaces 
idK longuewr 
Ida lwd 
Jsr outdo 
oejf 

i?ne drrcciJ 
Jsr crdo 
inc Increm 
inc lncresn 
Ijic cojirptEur 

cjirp tlfOfl 

tjocriiil 

JrEJJ anal/sub 

lija OuJ'/'er 

fftj lJLtbuF+1 

1 Liurrer+l 

ffLd Utbuf+2 

liiy ££ 

js£ li Lifuf 

sLb bluulu 

Iny 

Jsj: JJLiur 

sta blvi^lirtl 

urn LrltiiZlu 

Ida £>& 

^ La azampt'Gur 

t sx 

i^[M pile 

jS-tm 

pit! 

sta -c wnpCf?ur 

dec- ijicrc-in 

jar littolcii 
-' r. 

Idjc £S 
Ida 

bnc asui vtrc 

14H pLle 

tHG 



siocrlnl 



ctrJc 



raeme si Je Crfi£--C date un pen f ci^v; 

renis en attente a vec A:&sCroi?e 

nan 

oui -> on ecrit J.a derniere il^ne 
adres^e relative tfe I ' eoreglstreraenc 
calcul adresse aosoiue de i'enrej- 



lic ie j:-er ocret de I 'en-ce-yi^ti ™ent 
gyj; conulenc le type de sduve^iJt; 

dU fufeflier et I & Innyueur du IfOstf 

octet de la forme tLti. nil 

SO Sl rlcnier JftsxlalanL W J^truit 
-J> A - tttt 

est-ce un sous-tat-aitj^ue ? 
brancfte sl autre qve suux-tsaLalugui* 
e'est un nom de s<pv$-caLalinjuz: 
~> on sauve le corapteur kl Ik 
nuffrerc du Pioc 



fjuui lire le ji° du J er ijloc dU 
sum s _ ta f ^ J»3 c 

-J> A - O^Otf 1112 



'fi"^ — J ; JAbut du norfl 



nom de ca t ou suus-ua i ? 

oul 

non 

on soullgne J 
non 

— r» afetfssod t 
oul 



d^J^ 1 J fictile ex pfflchA* ? 

t?ji va lire Icj ^ octets dc 
W et ^3 dU ii^^J ' o'eit Je 



jj 00 j; 



p»irtt etrr dc pi £ ^ ^^"^2 i s a vj J * ui 1 da 
tf^biit p f > a-t— aft tout de-pi I p ?} 
puJ ^ t a 1 vgwr principal tormlno 
jfOit > on rspvp? re J.c d-o bl oi? ot 
le GG-mptcur prc-^^-de/it s 



on relit J*- J>Ji>4? p jt ^ <?&de-s\ t 



(in Jai^fift lo£ lle\JX r-Ctntrcp nrt 
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jsr 


crdo 




outs pace 


Ids LJAO 




Ida 


bitmap 


iJ ne reste cfU 'a af richer la Jinne 








sta 


bloclu 


'bltwra llerej . . . ' 


outdo 






Ida 


bitmap* 1 






Ida * C - 




sta 


bloclu* 1 






£pl out 




3" 


lltblac 


lit la bitnap 




bl c fcbJErnbe 


■otrJ 


Ida 




on va explorer 512 octets du buffer 




cap £$S3 


ccri-c z 


sta 


Utbut+1 






beg out 




Ida 


iilmem+l 




a : : 1 


bl c jttwJ 


noil a^centf mie nouveJJe couene 


sta 


litbuf+2 






acc&ndj 




Ida 


£6 






Jtbs trace 




sti 


nbiac 


fi&Ioc, /ibioc+J con ti Miff a le Jiojnbre 


out 


pi a 








tffi biQCS iiDTM 




Jjr JPSJC 




JU 


AafalJOC+i 






ifl c h I ah 




JSf 


lltbltmp 


on ira lire la - aoitiri jo la . r 




iris 




Inc 


Utbuf+2 










]sr 


11 tbl tap 


-7-*ire molt. 14 


f Itnpi law 1 if 1 !■ 




Idy 


libres 










Ida 


libies^y 


mention "blocs llbres: " 








J» 


outdo 






ldjt htmh 




dey 






Ida LfAO 




fcjie 


CJ 






jsr outdo 




Jjr 


Jjupradr 


ijpprixe iioiobre cfe bioca litre.? 








Idj 


tiit-orwiijr 


ctlculB blocs occup&s... 




sec 






Lev ii 




si?e 


nbloc 










Jta 


nbloc 






j ,' -J 1 - J 




2 da 


bl ocfflajf+i 






date 




j£jc 








£ I* 




jti 












Idy 


□ cc upe s 


mention "cccupes: ■ 




- a? 5 dcULj Lfp Jd bitmap 


Ida 


occupes„y 












outdo 










dey 










tone 


t2 






t*y 




J«" 


impiadr 




bii^rl 


Jarr Utbuf 




ida 


blocmax 






beo bnifH 


vtlvL - y;; «u - -' : 


.sta 


nbloc 






Std L C-TTp 




id a 


biacmax+l 










.sta 












idy 


total 


jsejuion "total blocs; " 


brnpZ 






Ida 


tctal r y 








-- : t n e a 1 A 


Jsr 


outdo 






(-L.-t. Ej.TpJ 




dey 








i/TC JlfalUf*! 




tt-.t* 


tJ 




bap3 




t/1 i JEUJ VfJJlt 7 






Imprme to£aj blocs 




Cine f-.T.pZ 




J** 


crdo 






sta nblov 


nun 


bit 


Abstrclbe 




btnpH 


Xnjf 




clc 




pew ProCQS I pas d'erreur 




Lfitr bn\fjl 




rta 






rfiai 





i lit Kt dffJviw Je jifULtjj e tie Miica uttujj^i pajr 1* fierier 



SOUS PROGRAMMES 



lecture £f r ttn snrejistremeflt o"u 2>Joc Ju 



fiomfiro de Clocs du rlcnier oana les octets 



litbuf Id a $S000 r y 



A<dTG£s* iidii slqnlficatlv2 r modifier 



i.-.pzirc les c spaces de d&but de llgnm 



espaces 


Idy 








beg 


ssprts 






cpy 


incaiax 


y ^ incinax ? 






Gspacbls 


aul 




idy 




ftOR — > y — inc?jaajf pour Jimiter Je 








decaia^e a u,ie vaieur rai s Oifurarjl e 


espacbl s 


Ida 






espbel 


J« 


OLrtdcr 






dey 








bene 






esprts 


rts 






i iaprlm 


- un 


reCour chariot 




crdo 




Hones- 






Ida 








cap 




d^Ja* ^0 i^jnes atflch&es ? 




bec 




nan 




bit 




oul -> 80 col active ? 




bmi 




QUI 




bit 


dobs scat 


non -> non d* sj-cac ? 




bmi 


toemepago 


oui 




Ida 


£$QC 


non -> saut de page 




J*r 


out to 




no form? 


Ida 


CO 








Hgnes 






ld« 


L$FT 








ht*b 






Jd* 


t$9D 








C jt dp 












; laprirse la 


caracCere fAJ 


ou un espact? et lncremerjto Jltab 



1/1 tt'i j Hi tut vpd ft 

idy i^iJ 

jca nbloc 
Iny 

jsr 11 cbur 
sta n&loci-J 



.\s l J I J .tuh^iJI a Lenneji C. par ijnpratJr 

; Inprime un (J^cJjnal cfe 5 cftiiires z\axi cratfre a {JrcitE 
,- ce rjDinSre esc contenu aans nbloc et nfilpcrj 



si ie decimal osc; 

inTerJeur a 1 io —j» 3 espaces it? 
cojEpris entire io en loo 2 ** loo 
cojuprls encre ioo ec looo -j 1 * looo 

sup&rleur J looo -> o 
# l 9fpace pour le sepa rer cfe ce gul precede 



$ 00 OA 
5 0J £fl 



Imprsdr my 
Ida 

CJBp 
DCC 

bne 
Ida 

bes 
bec 

bl Ida 
one 
Ida 
cap 
bes 
cmp 
bes 
Itiy 

lisp lny 
lisp iny 
tntptyldc iny 

Ida 
IdM 



10 

tibl QC+I 
£J 

bl 

iMpbl oc 
nbloc 

CSEB 

impbiQC 
lisp 
nbloc* J 
lisp 
nbloc 

£$£4 

lisp 
£JW 
lisp 



espacbl s 

nbloc+l 

nbloc 



nomore < $Q3 00 / 
oul 

nombre J*- 50* uo 
non 

ncmbre super iquf a so J eb ? 
oul ( J»- J 000 J 
nan ( < 100Q } 

naatbre superieur a 

superieur a mo ? 
oul 

non -> superieur a 10 ? 
(Mil 
nan 



32 



Pom's n° 32 



Imprlm* J s type du fiotiien 

aai t pa r a-fffi a brs-W j t i an 
salt 3£'j? la f o r rn c fjrX 

fe*a ueeup d* types po 3 9 e den t (inc abrfuiJ t Ion qui depend 
dii J»giffi*J uzlllsant Ics fienirr** £J liste rfts cods? 
•jC J I'MMBI a partis di> ^flflfffl #C «£t £■!.-;' -.-ifi 



typ* 



af.f type 



idy 

J" 
id* 

Irfy 
esip 

**<r 

Ifly 
iny 

bpi 
t«x 
Id* 

til 

J" 

J-EI 
Id* 
J tin 

f ny 

tan# 
j.r 
rr.i 



ou tap-ace 
£f J 
lit bur 
LfOD 

to 

typnun, x 
j f"f fcyp* 



typ*£K?J 



£?Jtf 

outdo 



prts-yt e 
out spjce 



f-3 



1 e type da flerhl or eft dsns 
l'oetat £10 

J Jiferfiu-t J tiani different er 



iu ruivant 7 

cull 

nnn f * rmfitf#nt iusiii le type J 



-: - Je type en 2 Chlffres 



1 rar*r£ms. A fmprimer 

Y contlent deja I 'offset du type 

A a /richer 





i<sr 


i ■" ^ : - 




pi A 




darej 




tfiaprria 




Ida 


f S?n 




j*r 


fsijrdn 




Ida 


.IS 




M] 








an 




tay 






Jrix 






Ida 






jsr 


ouEda 




Jny 






tiex 








JBS 




Ida 


£MD 




jsr 


outdo 




J da 


ii 




jir 


imprdace 




rtff 






ldjt 


tS2< 


affjd 


2 da 


.ncis.x 




Jsr 


outdo 




Inx 






CDX 


LS2D 




txs 


ittsit 




its 




imprdate 


tax 






Ida 


ISO 




Jsr 






rt* 




; lecture d'un bloc 


litalcc 


fsr nil 



ca r ■; re du isd 3 a ; inn " 3 



3 frji nfitmn 



debut, du aessage '/Wo DATE} 1 



ImririmQ le cant en u de A iMSBl 
mt X iLSB} en decimal 



efe il'W 

iZ'readparams 1 
bcc okl 
Ldx pile 
txs 

jsr badcall 
jsr errout 
rts 



cede de HEAD SLOCK 
#drej5*? table des pj rase t res 
C - -> pa* d'erreur 
sertjf- en catastrophe 



dc iJ^jra^' 



rfumande a ProDOS de Jire ia dJiEe, die 

xara 3Cacke\e dins daCesys* d&tesys*l 

rtfidm de GET TIME 

imlqueaent pflur /dire joll fll 

GET TTME n'utlJij* pms de param*tre 

aafs una adresse est necessaire apr£s 

la cade de 1'appel 

la routine dace utilise Y-521 et T**22 



recherche des volume* en llgne 



,- On passe en revue les lecteurs en llgne dans 1 'prd'f e 
g croissant des slots et drives jusqu*a ce que .'on 



Ida £*Tdate5y*-^JI 
Ida t>datBsys-$2l 
Idy msqds t* 

tV5 9 if f ,Tra7^ 

^ sulvl litunvdlAtoment de d^t^> 

; a'.';".';aje ia date Ue modif /caitioji du flctiier 
; la date est stoc^ee dans Xes net e ljt et Jtjjf d 



octet s-zz 
aaaa netam 





t/uL spa 'jc 


Uy 




J"' 


liLUitf 


trty 


&4tT3\itt It: 




LSCQ 


i>tj 


a* if j - f.' 


Isr 


a 


a~ILa 


n 


iluy 




J" 


iicisur 




sansdaie 


i L d 


jj 


Itfl 


a 


Jdl 


1 


JJJ 


1 


lsi 


i 


lM£ 


a 


Cflip 


£5£?D 






jta 




Ida 




a „-. 




cmp 


£«U 


hes 








he* 









octet §fi 



uctut $22 s- £5 C( M <-> mniwn >~ IOQ) 
n ™ oit b0. r fait par Lie du mwis 

lecture octet Sii 



un /ait en trcr la ret en ue a g a ucire 
et un qaidv Ls?, . L>4 pat d«c«l muvs 



fouls > 12 ? 

c;ui "> smiis date 



Jour >- JJ 7 
oui — > s*n* date 
nan —> jour < 10 

non 

oui 



nsnivoi dec lo/tayeur 
dec longueur 
Ida ftiraerd 
sta bufferol 
sta lit buffi 
Ida h intent* I 
sta 

jta litiraf+^ 

inc ptr 

bne nomvoll 

inc ptr+J 
nomvoil ldx decent 
onilnelxri Ida devc/Jc+I#* 

and £$FG 



sr.i unltol 



Jarr all 

dc IJ - *C5' 

dc Jjf'onJinepariBS* 



longueur du horn sans les 2 / 

le sieme buffer recevrs le pom 
de chaque volume tro\JY$ p?r 
qn LIftS 



avance ptr d'un cran pour sauter 
ie slash 

nombre d* unites contiectees 

le nombre trouve est de la forme; 

dsss tttt oft tttt deslgne le 

type de support (disque souple, dur 

ram*,..} -> on elimine tttt 



code de un line 
canie parametres 





bes 


unltsulv 


erreyr gueico/igue -J au suivant 




lay 


LQ 








lltbur 


lit ae i-er octet ou ourrer qui 




sta 


temp 


concienci dsss 1111 ou ill! est 




and 


£SQF 


i j longueur du nam au volume 




cmp 


JEcjigueur 


2 longueurs eg a les f 




bne 


unl tsulv 


non 




tay 




out *a> r - longueur 


cosnpr.c.T. 


jsr 


lltbur 


compare les noms oe voluntas 




cmp 


(ptr} *y 


deioand^ et lu par un line 




bne 


unltsulv 


lis sonc dirrerems 




dey 








Itne 


coapnom 


Tlitl ? nan 




Ida 


temp 


oui 




snd 


iLSFtt 


A - dsss QQQQ 




Si. Li 


unl te 






I Ls 




mission recompile 


Utli . Stil Y 


dex 




unite rulvante / 




hpl 


ami iiiebirl 


uui 




Ida 




rrtin -> on n'a rien trouvA: 


i 






tui/ff de 'PATH HOT rxtUNP' 




jmp 


• rro u t 


invul to 






ouile 


n& fcsstl re a u rel otjeur 
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33 



rlen ds 1 



tables ec textes 



dc il'l*l,l r ltl,l r 



parajretres de READ BLOCKS 



i ligne de Litres du cttmloqum 



resdp^r&ms anop 

dc 11 '3* 
LDlJ Ee de il '$50* 
buffer ds 2 

bloclu ds 2 

,■ paraaiitres de OH-LINE: 



3 paraar^tres 
leeteur s5, dl 

on y sroeJcera I'adresse du fiLiffer 
iirouillofi de Pro DCS 
numero du Bloc a lire 



dc il' 124 ' 

dc 

dc e' — — — 

dc il'SBD' 

dc u'EIFIDQH SCOL3 EPYT' 
dc c* 



t z,extes <et c&nstantes 



Ofillneparaiss a nop 
dc 11 '2' 
unltol ds 1 
hut feral ds 2 



2 pa ratteen?* 

rtumero d'unlti 

meme huff&r que pour read 



; para we tre* de GE7-PREFIX er SEr-.PREFI*r 



pCefpa ftrt a/fop 

dc an* 

dc 12 '$200' 



I seul parajsetre 
]e buffer d 'entree 



adresses relatives des enregistremertts d'lJfl catalogue 



r ou d'uji ssus-cara logue par rapport au debut du buffer 



CGZWilMt dc CXCAT' 

nonactir dc il u, u, /' 

dc jfJCT3| NOW SOOQCT 

llbTQS CfC U ' J i ' 

tfC C ; SSHUIL 5(SUU3 ' 

occupej dc Il'lf 

ac C ; jparttccu 
total de U 'iff' 

de c j ftftjtft 
asgdace de il r #J7' 

Incmax ce fi*^4' deciiage naxiiaum: am 24 canUcjes 



riji 



Recapitulation 
XCAT 

Apr&s avoir saisi ce code sous moniteur, 
vow: le .lanvegarderei par : 
BSAVE XCAT, AS2QQ0, LI 685 



2000 


AD 


00 


BF 


C9 


AC 


PC 


0D 


AC 


2008 


■39 


26 


B9 


39 


26 


20 


D6 


23 


2010 


■88 


DO 


F7 


60 


AD 


AD 


BE 


F0 


2018 


05 


A9 


15 


AC 


09 


BE 


AD 


08 


2020 


BE 


8D 


44 


21 


AD 


07 


BE 


8D 


2023 


43 


21 


A3 


OS 


20 


F5 


BE 


C9 


20.10 


or 


no 


01 


AC 


0<i 


RK 


8D 


F.2 


2038:20 


85 


43 


8D 


08 


BE 


A9 


21 


2040:85 


3D 


A9 


93 


85 


3E 


A9 


26 


2048 


85 


3F 


AO 


00 


84 


42 


84 


3C 


2050 :8C 


07 


BE 


20 


2C FE 


20 


5A 


2058 


20 


60 


AD 


S2 


20 


85 


33 


A9 


2060 


00 


85 


3A 


A2 


00 


Al 


3A 


F0 


2068 


50 


20 


8C 


F8 


A4 


2F 


CO 


02 


2070 


DO 


2C 


Bl 


3A 


C9 


BF 


DO 


19 


7078 


88 


m 


M 


C9 


00 


no 


17 


86 


2080 ;B1 


3A 


ca 


20 


DO 


OB 


AS 


3A 


2088 


18 


69 


03 


85 


3A 


90 


02 


E6 


2090 :3B 


A5 


3A 


85 


FC 


A5 


3B 


85 


2098 


FD 


A4 


2F 


20 


C8 


20 


A5 


2F 


20A0i39 


65 


3A 


85 


3A 


A5 


3B 


69 


20A8:00 


85 


3B 


38 


ED 


E2 


20 


A6 


2030: 3A 


20 


BA 


20 


BO 


03 


AC 


63 


20B8 


20 


60 


C3 


05 


SO 


Ob 


DO 


06 


20C0 


E0 


94 


BO 


02 


18 


60 


3S 


60 


20C8 


88 


Bl 


rc 


AA 


ce 


Bl 


FC 


38 


?nno 


F.9 


71 


90 


or. 


70 


RA 


70 


m 


20D8 


07 


6D 


E2 


20 


91 


FC 


IS 


60 


20E0 


38 


60 


00 


00 


00 


00 


00 


00 


2QE0 


00 


00 


00 


00 


00 


00 


00 


00 


20F0 


00 


00 


00 


00 


00 


00 


oo 


oo 


2 OF a 


00 


00 


00 


00 


00 


00 


00 


00 


2100 


D8 


AD 


6C 


BE 


85 


FE 


AD 


6D 



21U8-.BE 


8!) 


FF AO 


01 


Bl 


FE 


D9 


2110:34 


26 


DO 


2D 


Cfl 


CO 


OS 


<3() 


2118:FA 


88 


88 


8C 


52 


BE 


A9 


00 


2120:813 


OF 


BF 


8D 


53 


BE 


A9 


10 


2128:80 


54 


BE 


A3 


OA 


80 


55 


BE 


2130: AD 


4A 


21 


AD 


31 


21 


8D 


50 


213 B: BE 


AD 


32 


21 


3D 


51 


DE 


18 


2140:60 


38 


4C 


9E 


BE A9 


10 


AC 


2113:09 


BE 


A2 


00 


AD 


31 


BE 


C9 


2150:C3 


DO 


01 


CA 


86 


E3 


AO 


00 


2158:AD 


56 


BE 


F0 


44 


Bl 


FE 


85 


2160:1A 


C9 


03 


90 


E0 


A8 


Bl 


FE 


2168:C9 


2F 


DO 


D9 


A : 


01 


Bl 


FE 


2110:09 


2F 


DO 


Dl 


C8 


CA 


1A 


BO 


2118:22 


Bl 


FE 


C9 


2F 


F0 


C6 


C9 


2160-.2E 


DO 


06 


CO 


02 


F0 


BE 


DO 


2188 :EB 


C9 


30 


90 


B8 


C9 


3A 


90 


2190 :F2 


C9 


41 


90 


BO 


C9 


SB 


BO 


2198: AC 


90 


D9 


20 


3B 


25 


4C D8 


21A0-.21 


AD 


57 


BE 


DO 


21 


AD 


SA 


21A8:BF 


F0 


17 


20 


00 


BF 


CI 


9B 


21B0-.2S 


20 


00 


BF 


C6 


9B 


25 


90 


2 IBS: 09 


A 6 


IE 


9A 


20 


SB 


BE 


AC 


21C0: 09 


BE 


AD 


30 


RF 


DO 


OF. 


AD 


21C8-.62 


BE 


29 


02 


OA 


OA 


0D 


61 


21D0-.BE 


OA 


OA 


OA 


OA 


8D 


92 


25 


21D8:BA 


86 


IE 


hi 


00 


85 


ID 


8D 


21E0-.96 


25 


85 


IC 


8D 


93 


25 


85 


21E8:1B 


C6 


IB 


AS 


74 


3D 


14 


25 


21F0-.A3 


02 


85 


EF 


80 


95 


25 


20 


21F8:29 


25 


AD 


30 


BF 


C9 


BO 


F0 


2200:15 


AO 


00 


Bl 


J3 


C8 


11 


73 


2208: DO 


07 


CB 


Bl 


73 


C9 


03 


F0 


2210:05 


A9 


08 


tc 


09 


BE 


AO 


27 


77T8-.M 


73 


85 


EB 


ce 


Bl 


73 


85 


2220: EC 


ce 


Bl 


73 


85 


ED 


ce 


3: 


2228 : 73 


85 


EE 


20 


Bl 


23 


20 


9E 


2230:24 


20 


Bl 


23 


20 


Bl 


23 


AC 


2238:38 


25 


B9 


B8 


25 


20 


D6 


23 


2240:88 


DO 


F7 


20 


Bl 


23 


20 


Bl 


2248:23 


4C 


W 


22 


20 


29 


25 


AD 



22 SO 


00 


CO 


29 


7F 


C9 


03 


DO 


03 


2258 


4C 


15 


23 


M 


IC 


B9 


9E 


25 


2260:13 


65 


73 


8D 


99 


23 


B9 


AB 


2268:25 


b5 


14 


Bi) 


9A 


23 


AO 


00 


2270 


20 


98 


23 


F0 


54 


2 9 


F0 


cs 


2273-.D0 


DO 


14 


A5 


IC 


48 


AD 


96 


2280 


25 


48 


AD 


95 


25 


48 


A9 


FF 


228 B 


85 


IB 


AO 


11 


4C 


E2 


22 


20 


2290 


9C 


23 


20 


98 


23 


29 


OF 


B§ 


2293 


1A 


AA 


C3 


20 


93 


23 


20 


D6 


22 AO 


23 


ca 


CA 


DO 


F6 


24 


IB 


30 


2 2 A3 


03 


20 


F2 


23 


20 


Bl 


23 


24 


22B0 


IB 


10 


1 6 


£6 


IB 


20 


3C 


23 


22B8 


A6 


1A 


A9 


2D 


20 


D6 


23 


CA 


22C0W0 


FA 


20 


Bl 


23 


E6 


ID 


E6 


22CS 


ID 


E6 


1C 


A5 


IC 


C9 


OD 


FO 


2 2 'J 3 


03 


4C 


4F 


22 


AD 


93 


25 


8D 


22D3 


99 


23 


AD 


94 


25 


8D 


9A 


23 


22E0 


AO 


02 


20 


99 


23 


3D 


95 


25 


22E8 


C8 


20 


98 


23 


8D 


96 


25 


OD 


22F0 


95 


25 


F0 


07 


AS 


00 


85 


IC 


22F8 


AC 


4C 


22 


BA 


EA 


IE 


F0 


22 


2300 


68 


8D 


95 


25 


63 


3D 


96 


25 


2308 


68 


85 


IC 


C6 


ID 


C6 


ID 


20 


731 Q 


29 


25 


4C 


C9 


22 


A2 


05 


A9 


2318 


2E 


20 


D6 


23 


CA 


DO 


FA 


At 


2320 


IE 


9A 


20 


Bl 


23 


20 


Bl 


23 


2328.A5 


EB 


BD 


35 


25 


AS 


EC 


m 


2330 


96 


25 


20 


29 


25 


AS 


73 


8D 


2338 


99 


23 


AS 


7A 


8D 


9A 


23 


A9 


2340 


00 


85 


06 


85 


07 


20 


08 


24 


2343-.EE 


9A 


23 


20 


08 


24 


AC 


53 


2390:26 


B9 


53 


26 


20 


Ub 


23 


88 


2359 


DO 


F7 


20 


37 


2A 


AS 




38 


2360 


E5 


06 


85 


OS 


A5 


EE 


E5 


07 


2368 


as 


07 


AC 


63 


26 


B9 


63 


26 


2370 


20 


D6 


23 


88 


DO 


F7 


20 


37 



Suite page 37... 
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es impri mantes Image - 
Writer et DMP 
possedent im grand 
nombre de possibilites 
qui ne sont generalenient pas 
exploiters par l'utilisateur. En 
effet, il faut lui envoyer des codes 
de commanries relativement 
complexes qui necessitent 
souvent un programme particulier 
peu compatible avec d'autres 
logiciels, et dont les effets 
semblent quelquefdis aleatoires. 

Heureusement le traitement de 
texte AppleWriter permct 
d'envoyer ces codes a 
rimageWriter et son langage de 
pro gram mat ion le WPL (Word 
Processing Language) peut se 
charger dc calculer les parametres 
necessaires aux commandes a 
envoyer. 

Le programme wpl. filet se 
charge de tracer des filets 
graphiques decoratifs et centres, 
po\u encadrci un titre au bien 
pour s^parer des paragraphed, 
sans quitter le texte en cours, en 
incluant les caracteres de 
commande dans le texte. II 
fonctionnc avee Applcwritcr, 
version DOS 3.3. on ProDOS, et 
avec une iinprimaiue de la serie 
ImageWriter. 

Le principe 

Sur 1'ImageWriter le code 
ESCAPE-Vnntuic permet de tracer 
une ligne rfpe'tant nnnn fois 
l'image du code binaire ASCII du 
caractere 6. Le probleme consiste 
done, une fois choisi le caractere 
c a calculer le nombre nnnn pour 



obtenir la longueur de ligne 
voulue, et a ajouter a ce code un 
certain nombre d'espace pour 
obtenir une justification au centre 
correspondant a la longueur du 
filet a tracer et non a la longueur 
du code seul. Pour obtenir deux 
filets encadrant une ligne de texte, 
il faut de plus connaitre le nombre 
de caracteres de celle-ci, 
wpl . filet se chargera de ces 
calculs. 



Fonctionnement 



WPL . FILET 

- insere un marqueur a 1'endroit 
du texte ou vous souhaitez 
opener, 

- compte le nombre de caracteres 
du titre que vous voulez placer 
(s'il n'y a qu'un seul filet a 
tracer sa longueur est 
demandee a rutins ateur), 

- niuluplie ensuite ce nombre par 
8 pour connaitre le nomhres de 
points qui correspond a la taille 
de la ligne, 

- 6cvit ce nombre en respectant le 
format de 4 caracteres (avec 
des zeros en t§te si necessaire), 

- ajoute ensuite des cs paces pour 
obtenir une longueur de ligne 
conecte pour la justification au 
centre. 

Si votre texte ou votre ligne 
compte moins de 8 caracteres 
(e'est-a-dire la longueur 
minimum du code de 
commande), la ligne sera allongee 
automatiquement. Si vous desirez 
une sene de lignes de longueur 
decroissantes, le programme se 
chargera de calculer une ligne 
plus courtc dc 4 caracteres au- 



%gbzrt Constat 

dessous de laprecedente. 

Utilisation 

Deux possibilites : 

- taper ctrl-p dowfl. filet, 

- mettre le programme "sous la 
pomme" en utihsant le glossaire. 
II faut faire ctrl-g puis ? et 
choisir un caractere pour faire 
ex6cuter le programme (par 
exemple '_'), tapcz alors 

_c trl -pdohpl ,filet> 

suivi de Return {> dans 
Applcwritcr ProDOS ou 5 dans 
AppSewriter DOS 3.3.). Chaque 
fois que vous voudrez utifiser le 
programme tapez seulement 



Le programme une fois lance 
vous demande de taper votre titre 
ou <Return> si vous voulez 
seulement une ligne. II demande 
ensuite le code du filet, 
e'est-a-dire le caractere dont le 
code ASCII dessinera le filet 
(chaque bit a 1 de ce code traccra 
une ligne horizontale). Vous 
pouvez essayer different codes, 
(les caracteres = v u u g m par 
exemple, donnent de jolis filets), 
le programme vous foumit 
quelques exemples et vous 
pouvez une fois de retour au texte 
changer le caractere s'il ne vous 
convient pas. Si vous avez choisi 
d'encadrcr un tcxtc, <Rcturn> 
seul en reponse a la demande du 
code du filet du bas conservera le 
meme code que pour celui du 
haut. 

Les titres et les filets sont insures 
a l'emplaccmcnt du curs cur dans 
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le texte et e\;rivent le code JT 
d'Applewriter pour remettre le 
textc cn justification totale. Vous 
pouvez changer JT dans le 
programme par .JO si vous 
preTerez la justification a gauche. 

II existe toutefois certaines 
limitations ; on ne peut pas 
choisir des codes ASCII 
inferieurs a 128 et le code 255 du 
fait d' Apple Writer ; de plus, 
WPL.FILET intercepte les 



caracteres < > ? et Ret urn 
(ctrl-h et le parametre du 
soulign^ ne sont pas conseilMs). 

Saisie 

Un programme WPL ne peut pas 
depasser 2048 caracteres. 
WPL. FILET e~tam un peu long, 
on peut supprimer les espaces 
inutiles en teie des Hgnes (en en 
cunservant toulefois un avanL 



chaque commande), et les 
exemples de codes au debut. 
Sauver ensuite en faisant ctrl-s 

WPL . FILET. 

D'autre part, si voire Applewriter 
ProDOS est patche" pour ne pas 
compter les caracteres Escape cn 
justification totale il taut changer 
tous les PSX-7 en PSX-5 et les 
PSZ8 en PSZ6 pour obtenir un 
centragc correct 



CREATION DE FILETS GRAPHI DUES AUEC APPLEWRITER SUR IHAGEURITER 



Programme WPL FILET 



A saisir d I'aide d'AppleWriter. Pour en simpiifier le BCL 
comptage, des espaces ont itS replaces par des puces ( 



DEBUT PND 
PPR1 

PPR FILETS AUTOMATIQUES (R . CvusLal/87) 

PPR '■.■■■■^■■■■■■■■■■Mii..l. 

PPR 

PPRQuelques codes: 

PPB 

ppMignes: 'tines- • • • 'larges- • • 'mixtes 

■'PP 

ppr •■'»'• fix 

PPR 2: • <AXBXDXP> • • • gnF « ■ ■ •<C>80'b7. 

PFR 3; • ■ <R><IXT> *■* = : '761 TttZjum 

PPR 4; *%) U5+ 

PPR 

PINTitre A encodrer (return filet seul) :=$A 

PCOL11 
PGOTTTRK 

LIl PINLuiiyuHui en caracteres : =$B 

PSXSB 

PAS (X) -$B 

PCS<$B<0< 

PGOLI1 

PSRPLACE 
FILET PINCode du fllat:=$C 

PSRFILTR 

PCS<$C« 

FGOFILET 

PGOVERI2 
VERI1 PSX+1 



ZZ~1 



LIZ 



pas tx) =?a 

VER12 PSY(X) 

psza 

PSZ-l 
PCOBECl 
PGQLU 
PSY-1 
PGOBCL 
PGOVF.RT1 
PSRCALC 
PSRBLANC 

PlJVune autre ligne plus courtc? (O/N) ;~$A 
PCS<$A<o< 
PA$0=$& 
PCS<SA<0< 
PCOAUTRE 
PQT 
AUTRE F«"~< 
O? 

HHDXB 
PSX$B 
PSX-4 

FAS (X) =$B 
PGOVERI2 
TITRB PSRPLACE 
F«?A • < 
0? 

eszo 

mMPT DHH 

F<?<? <A 
B 

F< ' « 

O? 

D 

PSX-H 
PGOBCLO 
F<? << 



INC 



BCLO 
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TOTAL 
VERI3 



sex: 



DEC2 



ECRIT 



HAUT 



BAS 



HAS? 



0? 

PGOINC 

FSX-1 

S 

PAS $A = $A 

PSX+2 

PGY (Xj 

PSZ8 

PSZ-1 

PG0DEC2 

PCOECRIT 

psr-1 

PGOBCF.l 
PGQVERI3 

o? 

PSRCALC 

PlUCodo du fiJet haut:-$C 

PSRFILTR 

PCS<?$C<?<? 

PGOHAUT 

B 

PSRBIANC 

PINCode du filet bas;=$D 

PCS<$D« 

PGQBAS2 

PAS$D-?C 

PSRFILTR 

PCS^SCCf 

PGOBAS 

PSRCQDF. 

POT 



DOS 3.3 
ProDOS 




PLAGE f«> .JC"-,JT>< 

n? 

B 

PR? 
CALC PSY (X) 

PSZO 
"3 PSZ+8 

FSY-1 

PGO*-B 

PRT 
BLANC PSX-7 

PAS-$A 
BCL2 PAS$A =$A 

PSX-1 

PG08CL2 
CODE F<*"*>2v>0QQ (Zf $C>< 

0? 

DHBHHHHXD 

FO<$A?< 

0? 

PRT 

FILTR PCS<$C</< 
PRT 

pcs/$c/?/ 

PAS=fC 
PCS/?C/>/ 
PAS-$C 
PRT 



1 - mettre vn CTRLL (taper at) clavier CTRL-V CTRL-L CTRL-V} 
2- mettre Escape (taper CTRL-V ESC CTRL-V) 



...Suite de la page 34 



2378:24 A5 ED 85 06 AS EE 85 
2380:07 AC 70 26 B9 70 26 20 
2388:06 21 88 DO F7 20 3 1 21 

2390:20 Bl 23 2C 10 CO IS 60 
2i38:B3 00 80 60 A4 ID FO 10 
23A0:CC 11 7f, <t0 03 AC 93 26 
23A8:A9 AO 20 D6 £3 88 DO FA 
23B0: 60 E6 EF A5 EF C9 3D 90 
23B8-.11 24 E3 30 09 2 A IB 30 
23CO:09 A3 OC 20 D€ 23 A9 00 
23C8:8S EF A3 FF SB IF AS 3D 
23D0-.2O D6 23 60 A9 AO 48 AD 
23D8-.00 CO 10 OF 2C 10 CO C9 
23E0:8J FV 08 2C 00 GO 10 FB 
23F8-.2C 10 CO 68 20 5C DB F6 
23FV.1F 60 A6 IF AS AO 20 D6 
23FH-P1 F.ft F.O 28 90 F8 20 69 
2400:21 20 27 24 20 BA 24 SO 
24D8:A9 00 >B 30 SB 23 TO 13 
2410:85 08 A2 OS A5 06 46 08 
2418:69 00 90 02 E6 07 CA DO 
2420:F5 85 06 C8 DO E5 60 20 
2428-.D4 23 AO 23 20 98 23 35 
2430:06 CS 20 98 23 85 01 AO 
2438:00 A5 07 C9 03 90 OA UO 
2440:1*} A5 OS CS £8 BO 13 90 
2448:10 AS 07 DO OC A5 06 CS 

2450:64 BO 06 C9 OA BO 01 C8 
2458:C8 C8 C.8 20 A8 23 A5 07 
246Q:A£ 06 20 24 ED 20 D4 23 



2468:60 20 DA 23 AO 10 20 98 
2470:23 A2 OD AO 00 DO 89 B9 
2478:F0 14 CS CS CS CA ID F5 
248U:AA AS 24 20 L>6 23 8A 20 
2488rDA FD 20 D4 23 60 A2 03 
249Q:B9 97 B9 20 D6 21 C8 CA 
2498: DO F6 20 D4 21 SO 20 00 
24A0-.BF 82 00 00 A3 6F 80 S3 
24A&-.23 A9 BP" 3D 9k 23 AC IB 
2430:26 B9 7B 26 20 D6 23 83 
24B8-.D0 F7 20 D4 23 AO 22 20 
24C8-.98 23 FO 50 C9 CS BO 4C 
24CB:4A 85 F9 88 20 98 23 FO 
2400:43 SB FB 6A (A 4A 4A 4A 
24D8:C3 OD BO 38 85 FA A5 FB 
?4FO:P9 IF C<3 20 BO 2E C9 OA 
24E8:B0 05 48 20 04 23 ffS 20 
24F0-.22 25 A9 2D 20 D6 23 A5 
24F8:FA OA 65 FA A3 A2 03 D9 
2500: BE B9 20 D6 23 C8 CA DO 
250B-.F6 AD 2D 20 06 23 AS F9 
2510:20 22 25 60 A2 24 3D CI 
2S1B-.B9 20 B€ 23 EB EO 2D SO 
2520:F5 60 AA A3 00 20 24 ED 
2528:60 J?0 00 RF 80 91 25 90 
2530.03 A6 IE 3A 20 83 BE 20 
2538:09 BE 60 C6 1A Cfj 1A A5 
2540:73 3D 39 25 SO 99 23 AS 
2548:74 3D 3A 25 8D 9A 23 E6 
2550 :FE DO 02 E6 FF AE 31 BF 
2558 :BD 32 BF 29 F0 8U 98 25 
2560:20 00 BF CS 37 25 BO 20 
25G"S: AO 00 20 98 23 85 08 29 
2570: OF KS 1A DO 13 A8 20 98 
2578:23 Dl FE DO OB 83 DO F6 



2530:A5 09 29 FO SB 92 25 60 
2588 :CA 10 CI} A3 06 4C 09 BE 
2590:00 01 50 Of) Of) 00 00 02 
2538:00 00 00 01 00 02 04 2B 
25A0.52 79 AO C7 EE 15 3C 63 
25AB;3A Bl D8 00 00 00 00 00 
25BO:00 00 01 01 01 01 01 01 
25B8-.7C 2D 2D 2D 2D 2D 2D 2D 
25C0:2D 2D 2D 2D 2D 2D 2D 20 
25CS:2D 2D 2D 2D 2D 2D 2D 2D 
25D0-.2D 2D 2D 2D 2D 2D 2D 2D 
25D8:2D 2D ?D 70 2D 2D 2D 2D 
25£0:2D 2D 2D 2D 2D 2D ZD ZD 
25F.8.2D 2D 2D 2D 2D 2D 2D 2D 
25F0:2D ZD ZD ZD 2D 2D 2D 2D 
25F8:8D 45 49 46 49 44 4F 4D 
2600.Z0 26 53 43 4F AC 42 20 
2608:20 45 50 59 54 20 20 20 
2610:20 20 20 20 20 20 20 20 
2618:20 20 20 20 20 20 20 20 
2620:20 20 20 20 20 20 20 20 
2628:20 20 20 20 20 20 20 20 
2£30;20 20 40 4F 4E 58 43 41 
2636:54 19 OD OD 07 2A 2A 20 
2640:46 49 43 54 41 20 4E 4F 
2648 :4E 20 53 4F 44 4F 52 50 
2650:2 2A 2A OF 20 3A 20 53 
2658:45 52 42 43 4C 20 53 43 
2660: 4F 4C 42 OC 20 3A 20 53 
2668:45 50 55 43 43 4F 20 20 
2610-.0A 20 3A 20 4C 41 54 4F 
2678 :5i 20 20 17 20 3A 20 45 
2680 :4C 20 45 4U 49 52 50 4D 
2688:49 20 45 55 47 4F 4C 41 
2690:54 41 43 18 60 CS 
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Pour eviter les saisies fasiidieuses 
et pas toujours fiables, Pom's 
met a voire disposition des 
disquettes d'accompagnement qui 
regroupent l'ensemble des 
programmes de la revue. 



Fichiers Apple // 



Apple // 



Pour les Apple //, deux types de 
disquettes : 

• 140Ko, 5,25 pooces au prix de 
60,00 F, fichiers cn format 
DOS 3.3 au recto, en format 
ProDOS au verso , 

• 800Ko, 3,5 pouces pour 
Unidisk, au prix de 80,00 F, 
fichiers en format ProDOS 
seulement. 

Sur la 800Ko et la 140Ko face 
ProDOS (toutes deux nomme'es 
/P0MS32), nous vous conseillons 
d'installer les fichiers 'ProDOS* 
et 'Basic. System', ainsi la 
disquette sera bootable. 

Sur la liste ci-contre, les fichiers 
sont reperes ainsi : 

D : face DOS 3.3 de la 140Ko ; 
P : face ProDOS de la l40Ko ; 
8 : disquette 8OOK0. 

Macintosh 

La liste ci-contre donne 
l'ensemble des fichiers de la 
disquette Mac, fichiers utilisables 
sur tons les types de Macintosh. 





P 


e 


TRANSFORMS UR 


Programme (RUN ou —) 




P 


8 


HCR.SUPHGR.C 


Utilitnire pour Transfozmeur 




P 


s 


HGR.SUPHGR.S 


Source en format TEXT 


D 




a 


RTGTEXT 


Source en format TEXT 


D 




6 


B1GPGM 


Source en format TEXT 


D 




8 


BIGSAVE 


Source en format TEXT 


D 




8 


BIGPTZl 


Table 


D 




8 


ECR.V1RT 


Code issu des 3 sources et de la table 


p 




8 


VIRPU2ZLE 


Pgm da cr Sat Inn de ECR-VIRT (RUN) 


D 




8 


V1RCEL 


fgm de demonstration (RUN) 


r, 




8 


VIDEO 


£c.ran rie demonstration pour VTRCEI 




P 


8 


XCATS 


Source en format TEXT 




P 


8 


XCAT 


Ob jet tBRUN ou -) 


D 


P 


e 


ttPL. FILET 


WPIi a sxicutir dspui 3 Applcifri ter 




P 


8 


COPY 


Ob jet (BROW ou -) 




p 


8 


CCPY.S 


Source en format TEXT 




P 


8 


COPIE. TF 


Pgm Basic (RUN au -) 




P 


8 


RECURSIVE- TEXT 


Ces trais programmes Pascal 




P 


S 


U. GESTABL . TEXT 


sont a converclr & 1 'aide 




P 


8 


P, REPFPT- TF.XT 


d' Universal File Conversion 


D 


P 


8 


DETECT 


Pgm Basic (RUN) 


D 






RECURSIVE 


Ces trois progammes Pascal 









V. GESTABL 


sont i convert! r a 1 'aide 


D 






P.REPERT 


de Basic-Pascal 


L' 






BASIC. PASCAL 


Pgvn de conversion DOS/PASCAL (RUN) 


D 






BASPAC. OBJ1 


Utllltaire pour BASIC. PASCAL 



Fichiers Macintosh 



Dossier Systeme 

Font /DA Mover 
MotsCroi ses 
Grlllel 

mots crai s&s .pas 
Accessoire 'fuseaux' 
decalage .Asm 
wABcro . Txt 
CalEpu. Txt 



Contient 'fuseaux' installe et quelques 

el&m&nts vitatix 

Pour installer 'fuseaux' 
Application du meme non 

Le probl&me post dans ce numero, page 73 
Source de 1 ' appl ication 'Mots_Croises' 
Flchici Font/DA Mover qui cojitient 'fuseaux' 
Source MDS 68000 de 'fuseaux' 
Fishier ds macro-instructions pour 'fuseaux' 
Fichier d' equivalences pour 'fuseaux' 



line suggestion pour le prochain numero, 
une question sur T Vom's ou ad litteram, 

un regret a formuler, 
une hesitation sur un programme Pom's ? 



empll 



Notre boite a lettres sur CalvaCom est a voire disposition. 
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Apple Expo 87 : inutile de taper 36.15 
pour que je vous montre tout 




Si vous d&irez vraiment taper 36.15 
(code d'acces : Villette, mot cfe ; Apple) 
vous trouverez tous les renseigneroents 
utiles a prupos d'AppIe Expo. 

Tbutefois, si vous desirez fa des ren- 
contres interessantes, ou tout simplement 
tout voir d'un coup d'ceil decomplex^, 
nous avons toujours pense chez Apple que 
rien ne rcmpkccra !cs vraics experiences 
humaines, et surtout pas les machines. 

En (ait, il s'agit d'un coup d'oeil parti 
ailiSrement nanoramique puisque vous 
pourrez en 14.000 m 2 a travers 160 expo- 
sants contempler tout un univers, sa culture, 
son present et son avenir, celui d'Apple. 

Celui de votre Apple. 

Voyons d'abord ce que vous pourrez 



voir du 30 septembre au 3 octobre, 

Lorsque vous aurez vu l'enscmblc des 
produits Apple et non Apple, mis au point 
par des developpeurs ext&ieurs, vous 
pourrez contempler tous les logiciels dis- 
ponibles aujounlliuj sur TApple n ou 
Macintosh ■ avec une attention toute parti- 
culiere pour les demlers-nes des Etats-Unis 
visibles en France pour lapremiere fois. 

Au passage, n'oubllez pas de deman- 
der au Macintosh n de se livrer a une petite 
exhibition personnel^. 

Gardez un peu de votrc temps pour 
regarder les riomaines ou Apple tient une 
place toute particuliere, comme Teduca- 
tion ou [edition personnelie 

Et si vous n'etes toujours pas rassasiSs, 



arretez-vous au village de formation pour 
demander a voir tout ce que vous n'auriez 
ose imaginex 

En ce qui conccmc les rencontres, rien 
n 'a £t& laisse an hasari Que ce soit 
au cours de l'une des nornbreuses confe- 
rences, pendant un spectacle, au Club 
Apple, ou tout simplement au restaurant, 
vous rencontrez qui vous voulez. 

Apple Expo du 30 septembre apres- 
midi au 3 octobre 1987. La Grande 
Halle - La Villette. Heures d'ou- 
verture: mercredide 
12 h a 19 h, autres jours 
del0hal9h.Jeudi: 
joumee professionnelk 
Metro; Porte dc Pantin. 



Apple Expo - La Grande Halle - La Villette. e^e 



^ Du 30 septembre au 3 octobre. Apple 




es anciens utilisateurs 
de i'Apple // se 
fsouviennent sans 
doute d'un logiciel 
miracle (pour son epoque) : 
AppleWorks, qui existe toujours 
et a ete perfectionne" depuis, D£s 
1'origine, ce premier vrai integTe 
pour micro-ordinateur proposait 
trois fonctions : tableur, gestion 
de fichier et traitement de texte. 
La communication entre les 
fonctions se faisait, au moins 
partiellement, par Copier/coiler 
grace a un Presse-papiers, certes 
rudimentaire, mais qui prefigurait 
celui du Macintosh. Les 
differents modules 6taient geres 
par des commandes homogenes, 
tres conviviales (pour ce type de 
materiel sans souris) et aisement 
miscs cn ocuvrc. Unc fonction 
d'aide etait accessible en 
permanence. 

Quand on aborde Microsoft 
Works, on est frappe par sa 
conception, rappelant sur bien 
des points celle d'AppIeWorks, 
mais avec - eVidemment - les 
progres dus, d'une part au 
fonctionncment du Macintosh, 
d'autre part a la puissance du 
materiel. 

Works propose, uuire les trois 
outils precedents, un grapheur 
associe au tableur, un module de 
courricr pcrsonnalis6 par liaison 
du traitement de texte et de la base 
de doimees, et un module tres 
complet de telecommunications . 
Les liaisons entre modules 
utilisent systematiquement le 
Copier/Coller, cependant que les 
liaisons avec d'autres logiciels se 
font par importation ou 
exportation de documents, ou 
encore par l'interm£diaire du 
module de communication. 

Pris individuellement, les outils 
sont classiques, possedent les 



fonctionnalin£s indispensables, 
sans sophistication, lis sont en 
consequence faciles maitriser et a 
mettre en auvre. 

Pris ensemble, on apprecie le 
passage insLantan6 d'une fonction 
a une autre, par simple activation 
de la fenetre voulue, et la liaison 
elle aussi presque instantanee par 
le Presse-papiers. 

A noter une bogue genante : 
Works, nun seulement est 
incompatible avec 1' Album, mais 
de plus une tentative d'utilisation 
se solde toujours par une 
"bombe" ! Esperons que 
Microsoft eorrigera rapidement 
cette erreur. 



Le traitement de 
texte 

II ressenible beaucoup a 
MacWrite ou a Word. II utilise 
classiquement une regie et 
possede les fonctions, egalement 
classiques, d'alignement, 
pagination, en-tctc ct bas de page, 
recherche et remplacement, etc. 

Ses "plus" 

• la possibilite de juxtapose! face 
a face du texte et des dessins ou 
graphiques issus, soit de logiciels 
tiers, via le Presse papiers, soit 
du grapheur integre ; 

• le transfers de caracteristiques 
de formaiage d'un paragraphe a 
un autre par die ; 

• l'existence d'une panoplie 
d'outils semi-graphiques 
integres : traits, encadrements, 
ovales, avec diverses epaisseurs 
de traits. 

Ses "moins*' 

• l'absence de fonction de mise 
en colonnes du texte, qu'on peut 



Matfmu 



cependant s'attendre a trouver 
dans un logiciel modeme ; 

• l'absence de tabulateur 
decimal ; 

• l'absence de glossaire et, quoi 
que 1'importance soit sans doute 
moindre, de dictionnaire et de 
cesure automatique. 

Le gestionnaire de 
fichiers 

11 s'appelle un peu 
pompeusement Base de donne~es, 
e'est en fait un honnete 
gestionnaire de fichiers, dont la 
conception ressemble heaucoup a 
celle de File (egalement propose 
par Microsoft). 

Ses "plus" 

• des possibilites tres larges de 
selection d enregistrement par des 
associations dc fonctions 
logiques ; 

• de bonnes possibilites de 
caracterisation des champs et 
d' execution de calculs sur les 
champs numeriques ; 

• des fmmatages des dates 
iuleressants ; 

• une grande facihte de definition 
d'un etat, de sous-totaux et 
totaux, de sauts de lignes et de 
pages ; 

■ la possibilite de conserver des 
"gabarits" d'etats. 



Ses "moins" 

• pas de vue prealable des etats a 
l'ecran (seulement les resultats 
des totalisations) ; 

• la limitation de la longueur 
d'un champ (nom + contenu) a 
une ligne de l'ecran. 

Par ailleurs, il ne faut pas perdre 
de vue que ce gestionnaire est 
mono-fichier. 



40 



Pom's n° 32 



Le courrier 
personnalise 

En associa.ni un texte avec un 
fichier (ou plusieurs), on peut 
cre*er aisement un systeme de 
courrier personnalise travaillant 
sur tout le (ou sur une selection 
du) fichier. II suffit dindiquer, 
en position, les rubriques des 
fichiers a utiliser lors dc 
I'impression, par choix dans une 
liste de rubriques presentees a 
1'ccran, 

Ses "plus" 

• une facilite extraordinaire 
d'utilisation ; 

• la possibilite de voir a l'ecran 
ce que sera exactement tel ou tel 
document imprime (l'cnrcgis- 
trement ou se trouve le curseur 
etant utilise pour cette vue 
prealable). 

Ses "moins" 

• on ose a peine le dire : le fait 
qu'il faille redemander 1'option de 
preparation pour chaque champ a 
iritegrer dans le document de 
traitement de texte. 



Le tableur 

Sa parente avec le celebre 
Multiplan. et peut-etre plus 
encore avec Excel (deux logiciels 
signes Microsoft) est evidenfe. 
capadte est dc 230 colonnes et de 
9999 lignes, ce qui est tres 
confonable. On y trouve une 
large pan op lie de fonctions, un 
travail en references absolues ou 
relatives, internes ou externes, 
des options de formatage varices, 
etc. 

Ses "plus" 

• la transposition aisee des lignes 
et colonnes, notamment pour la 
constmction de graphes ; 

• de nombreuses fonctions 
mathematiques, logiqucs, 
statistiques et financieres ; 

• une bonne variele d'oplions de 
collage special ; 

■ la possibilte de decouper la 
fenetre en deux "panneaux", 



horizontalement ou vertica- 
lement ; 

• la deplacement de cellules 
obtenu par clic. 

Ses "moins" 

■ des fonctions de date et de 
chaines de caracteres 
inexistantes ; 

• pas de possibilite de creer des 
formats personnalises (eomme 
e'est la cas avec Excel) ; 

Par ailleurs, il n'existe pas de 
macro-commandes associees an 
tableur, 

Le grapheur 

II est associe' an tableur, et permet 
de tracer des courbes, des 
diagrammes a barres 
(eventuellement combines) el des 
diagrammes a secteurs 
(camembens). Un graphique est, 
comme il se doit, mis a jour 
automatiquement par la feuille de 
calculqui le sous-tend. 

Ses "plus" 

• la possibilite de representer des 
lignes de donnees disjointes (ce 
que ne permet pas un outil aussi 
puissant qu'Excel !) ; 

• une echcllc scrrd-logarithmique 
disponible ; 

• la possibilite de conserver des 
"gabarits" utilisables en diverses 
circonstances. 

Ses "moins" 

• la limitation a 4 series de 
valeurs ; 

• la representation de series de 
lignes uniqucmcnt (pour 
representer des series de 
colonnes, il faut passer par 
rintermediaire de la fonction 
Transpose, heureusement aisee a 
mcttre cn ocuvre). 

La fonction 
communication 

II est relativement rare de trouver 
aujourd'Imi encore une fonction 
communication integree a un 
logiciel. Celle de Works est a la 
fois puissante et tres commode 




d'emploi. On peut definir sur un 
ecran les caracteristiques 
techniques de la communication, 
puts envoyer ou recevoir des 
messages {frappe directc au 
clavier), des textes (sans 
foirnatage), des fichiers (avec 
toutes les caracteristiques de 
formatage, en texte ou en dessin 
ou graphique). 

La rarete des options 
communication fait qu'il est 
difficile de pailer de "plus" et de 
"moins" : par rapport a quoi ? 

Ce qu'on aime 

• la tres grande variete possible 
des specifications techniques ; 

• la possibilite de creer des 
"documents communications" qui 
mettent en memoire les 
specifications et un "annuaire 
telephonique" personnalise ; 

• sous reserve de posseder le 
modem voulu, la numerotation 
automatique, la mise en reception 
automadque ; 

• la facilite operatoire. 

Ce qu'on n'aime pas 

• rien de particulier. 

La liaison entre 
outils 

Elle utilise systematiquenient le 
Copier/Coller, quels que soil les 
outils entre lesquels on veut 
etablir un transfert de donnees, 
sauf : 

• le courrier personnalise, realise 
par une function patticuliere ; 

■ la liaison tableur-grapheur, qui 
est automatique. 

Ses "plus" 

• rinstantaneite du passage d'un 
outil a un autre par ouverture (si 
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ce n'est deja fait) ou activation de 
fenetres ; 

* la conviviality tres pouss6e, a 
la Macintosh, du passage par le 
Presse-papiers, 

La liaison avcc 
d'autres logiciels 

Elle pent sc fairc dc trois f aeons : 

■ par lc truchcment du 
Presse-papiers, comme entre les 
fonctions de Works ; 

* par lecture ou enregi&trement 
sous forme de texte seal, pour les 
logiciels qui component cette 
possibility (mais les options de 
form at age sont perducs), ou sous 
certains formats particuliers, par 
exemple SYLK ; 

- en utilisant le module de 
communication (pour les 
logiciels, Macintosh ou 
ordinateur tiers, qui disposent 
eux-mernes d'un tel module ou 
peuvent en utiliser un). 

Ses "plus" 

* de nombreuses solutions 
possibles, dans lesquelles on peut 



faire un cboix en fonction du 
probleme a trailer ; 

• la grande facility d'usage des 
liaisons par Presse-papiers ou 
module de communication. 

Ses "muins" 

• la n6cessite, si on sort des 
options simples, dc bien 
comprendre la structure des 
documents produits par d'autres 
logiciels : format, caracteres de 
controle,... (mais ce n'est pas 
propre a Works) ; 

• surtout, e'est la que se fait 
durement ressentir I'incompa- 
tibilite de Works avec 1' Album. 



En 



resume 



Pour 

Un logiciel pour lequel on est 
parfois rente" d'utiliser Padjectif 
genial, en particulier pour son 
module de communication, sa 
fonction de courtier personnalise 
et la facilite de commutation el de 
liaison entre out Us. 

Une tres grande facilite 



d'utilisation, parfois au detriment 
de la puissance, mais jamais au 
detriment de la rapidite. 

Contre 

Quelques lacunes rcgrettables, 
comme l'absence de colonnage 
dans le traiteinent de texte ou de 
fonction de date dans le tableur. 
Et surtout, 1' incompatibility avec 
l'Album, generant une bombe et 
une 'grave erreur systeme'. 

Un bilan tres largement 
positif 

Works peut fort bien etre le 
Logiciel unique pour les 
besoins courant de la plupart de 
ces "travailleurs du savoir" chers 
a nos amis d* Apple, certains 
d'entre eux etant amenes par 
ailleurs a utiliser des logiciels 
specialises de leur profession ou 
de leur technicite. 



T 



Tirez le macsimum de votre Macintosh. 

luez sur Icones. "** 



i^f 1r is.i-Jr.-i. -I 



Le re sea u 
AppleTalk 



Cliqi 




in 

■ Ce qu'en pensent les tecteurs: ■*•'— L 1 — 'I 

• "C'esl avec plaisir et inleret que je lis Icones dont la plus Rrandc 
quality, a man sens, est t'inteltigibilile pour un profane curieux." 

• "Permettez-moi de vous teliciter pour la tres haute qualite redaclion- 

nelle de voire revue qui, mon sens, me semble rsrement auteinu* dans 

bien des revues americaines auxqueiles j'avais lhabitude de souscrire." 

• "Icones doil trouver sa place dans la bibliotheque de lout 
Macintoshien qui se respecte," 

• "Enfin des articles objectifs qui savent faire la part des choses 

et qui ne portent pas Apple aux nues beatement I Bravo, continuez." 

• "J'ai eu le plaisir de voir voire revue si visuellement passionnante 
et je tiens a continuer le plus longtemps possible. C'esi pourquoi 
je m'abonne." 



Bulletin d'abonnement a renvoyer a Icones 

135 bis rue du Faubourg de Roubatx 59300 LILLE 



Pour etre sur de ne rater aucun numcro, abonnez-vous, 



OK. Je clique sur Icones. Je m'abonne pour huit numeros. 

France: 180F. Etranger: 250F. Ci-joint mon reglemem par cheque. 

Nom: Prcnom; 

Adresse: 

Code postal: ViDe: 

Profession: Satlsfalt ou rembours& 

si Icones voys decoit^ il suffji de nous letoumer avaru dix jours voire 
ler exemplaire pour etre lntegralement rembourse (cheque retourne) 
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ne revue telle Pom's 
pouvait-elle proposer 
des grilles de mots 
croises sans proposer 



1'assistance de l'ordinateur ? 
L'application presentee ici permet 
de rrairer sur 1'ecran des grilles de 
mots croises preenregisrrees ; elle 
presente le double avaniage de 
remplacer avantageusemem 
crayon et gomme, et d'aborder un 
nouveau langage dans ces pages : 
le Turbo-Pascal, L'application 
permet de sauvegarder vine 
recherche en cours pour la 
reprendre a tete reposee. 



Utilisation 

Par le double-clic habituel, lancer 
l'application Mots_Croises. 

Par defaut, la grille numero 1 est 
chargee. Si cette grille n'est pas 
presente sur la disquette, un 
message d'erreur apparait. Pour 
selectiomier une autre grille (s'il 
en existe une), cliqucr sur le 
rectangle grille numdro. Une 
boite de selection apparait alors. 



Choisir le numero de la grille en 
cliquant sur les cases + ou -, puis 
charger la grille en cliquant dans 

OK. 

Deplaeer la souris sur la grille, 
frapper la lettre a inscrire dans la 
case pointed par la souris ; bien 
sur les cases noires ne sont pas 
accessibles. 

Pour conserver une grille 
inachevee, cliquer szuver. Cette 
grille pourra ctrc rappelcc dans 
l'etat ulterieurement. 

La commande Ef facer vide 3a 
grille. 

11 est possible d'imprirner le 
probleme sur papier en cliquant. . . 
Imprinter. 

Pour quitter le programme choisir 

l'option,.. Quitter. 

Enfin, pour contiuler les 
resultats, enf oncer la touche tab 
tout en cliquant dans Grille 

numSro. La solution du probleme 
s'affiche (£.e probleme de ce 



numero foisantl'objetd'un concours, 
celte option ne fonctionnera 
pas...). 

Structure d'un 
fichier Grille 

Les fichicrs grilles sont des 
fichiers TEXT nommes 
GRILLE1, GRILLE2.... Leur 
contenu doit etre le suivant : 

• une chaTne de 100 caracteres 
ou sera stockee la grille en 
cours dc rcmplissage ; 

■ 1 retour chariot ; 

• 1 chaine de caracteres 
contenant la solution du 
probleme. Les cases noires 
sont representees par des 
points ; 

• 1 retour chariot ; 

• 1 certain nombre de caracteres 
pour les definitions 
horizontales ; 

• 1 retour chariot ; 

• 1 asteiisque ; 

• 1 retour chariot ; 

• les caracteres necessaires pour 
les definitions verticales. 

L'encadre donne un exemple de 
fichier. 



Exemple de fichier exploitable par Mots croises 

Pour plus de comprehension, les espaces ont ete materialises par des *. Un tel fichier peut-etre consume a 
l'aidc d'un traitcmcnt dc tcxtcs (sauvegarde avee l'option 'tcxtc scul'). 



INTERPRETENOE ,OE . CUDTU . . SU . DBDEVITEBAS . CCEBS . .M.MAEA. . LSE . OTRU . LION . YE . . NAAN . LEUORDINATEURRESTERAI . S 

1. Parle plusieurs langues. 2. Patriarche, - Cardi- 
naux. - Noble inverse. - 3. Cache. - Appris. - Pere de 

COftl6(li,G> . - 4. FeLeti un deLuui . - 5. Rivieit; de Ftdiict;. - Pusses sir . - 6. Vuyelles . - Un 
langage francais qui a en bien peu de aueces . Centre de vote . - 7. Pet. if rui ssseau . - Le rot des a 
nimaux. Debut de raomidie, — S. - Qudtie d« Hathan, Vleux luup, ~ 9, De plus en plus puissant. - 
10. Ne partirai pas. 

1. Type de variable, - Operateur logique. - 2. Recent. - Note. - 3. Inutile avec Mac Draw. - Fin da 
verbe 

- Inverse : Avait son siege a Geneve. - 4. Consonnes . - Bon pour le nourrisoon. - S. Emblcmc d'un 

parti 

politique. - Grimpe aux arbres. — 6. Crainte, - Systeme de detection. - 1 . Ainai soit-il, - Symbolc 
chimique. - 8. Monnaies europeennes . - Monnaie d'Europe. - 9, Recipient. - Axe. - 10, Enseiqnants . 
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Programme Mots_Croises 

Turbo-Pascal 

PROGRAM Mols_Croises; 

I Roland JUST • VERSION 2.0 ■ Juin 19B71 

(ST APPLMC02) 

ism Memiypes. Quickdraw. OSIntl, Toollrwl, Packlnil.PaslnOtJi.MacPrinl; 



const 



System - 0; 
NewYork = 2; 



type 



slrlS -£tring[1£]; 

CharArray = packed array[0..4933] of Char, 



ncase, 




fase, 




fdesc, 




IK 




nombral, 




ermo 


: integer; 


textinlengtrt, 




lexlinllenglh 


: fortgint; 


inRed, 




r, 

H, 




anect, 




bred 


:Ked; 


inkey 


:crw; 


encours, 




solution 


: S1ring( 100]; 


chains, 




numero. 




* 




nomgrille , 




sn 


: string; 


c 


; point; 


cases 


; array[1..10aj ot recti 


ammande 


: array[1..5J ot red; 


mes 


: array[l..4) of string[lO]; 


Lino 


: array]1..SQ] of string[1O0j; 


gFol 


: GrafPort, 


myEveni 


: eventRecord; 


sortie. 




soillag 


: boolean; 


Trad in, 




Textinl , 




TextQui 


: CharArray; 


Into 


: Fontlnio: 



procedure PuiMsg (m : sin 5; 
r : Reel): 

( ccril lachaino do caracteres m dans la rectangle r ) 
var 

h. v : integer: 
begin 

h > r.lofl + (rright - rJetl - SiringWWthH) div 2; 
v > r.top + (r.bollom - r.top - lAsc • fDesc) div 2 + fAsc; 
MoveTo(h, v); 
DrawString(m); 
end;{PulMsg) 



procedure boiteS: 

{ aflicha lo num6ro do !a grille on eours ) 
begin 

SertR6d(ccrwian.de[5L1 50.1 0,230,30): 
F r ame Round Rect jcomm ande[5], 5,5) : 
PutMsgfgrHfl n° 1 + sn,commande[5j); 
end; {bo ite 5) 



[« 



procedure messages: 

( initialise et affiche les command es } 

begin 

Sel Recttcomm andejl ], 10,1 0,70,30); 
FrameRoundReet(cQmmande[1],5.5); 
PutMsg['E(lacer',comrnande[1]j; 
SetReotfcwnmanSelZj.SO.i 0, 1 40,30): 
F rame Rou nd Red (com m ande[2], 5,5) : 
Put Msg ("Sauver'.oom mande{2] ); 
Set Rectfcorn ma nde[3], 1 0,4 0,70,60) ; 
F lameFtourxJReelfeomm ande[3], 5, 5) ; 
PulMsgpm pnmer , commanded) ) ; 
SelRedtcommande[41,B0.40, 1 40,60); 
FrameRoundRectfcom mande[4], 5, 5); 
Pulfifeg('Ouitter , .commando[4J): 
buiteS, 

end; {messages) 



procedure remplitjrilla ; 
( atftche 1e contenu de la grille ) 
var i : integer; 
begin 

for i := 1 to 100 do begin 
BraseRecl(cases|i]); 
case encoursjij of 
'.' : invertrKl(cases[ij); 
otherwise 

pulm!g(enc«Jrs|T| J cases[i]); 
end; {case} 
end; (for 1} 

end; (remplit_grille) 

( == „ ========== « === 



procedure affiche_solution ; 
( aflche la solution de la grille ] 
var i : integer: 
begin 

loii - 1 to 100 do begin 
eraseRed(cases[i|); 
case solution[i] of 
" : invertrect(case5[i]); 
Otherwise 
put msy ( s oluli or .cases ; 

end; {casej 
end; (tor i) 
soillag :- false; 
end; {affiche_solu1ion) 



procedure aifichejgriiie; 

{ yejiere la grille 10 * 10 de mots uroises j 

var i.j: integer: 

begin 
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lor) > 1 to 10do 
begin 

1or I :- 1 to 10do begin 

Sdnecl(f.27Q*2Q^2O - j,29O+MN,20+2O*j); 
FrameRed(r); 
Set Ftect(r1 ,Z71 +20'i r 1 +20*j ,289+20'i, 1 9+20*j 

eases[i+lO*(i-l)] :=rl; 

end; 

SetRect(ri ,270,20*j.290 1 20+20'j) ; 
NumTDSlringrj.chaine); 
PulMsg(chaine,r1 ); 
end; 

for I :- 1 tolOdo begin 

SetRed|M,270 + 20'i,1 0,290*20 VO); 

Numloslring[i,chairie); 

PutMsg(chaine./l): 
end; 

end; jaltichejrilLe) 



Procedure faittoxlrset; 



var 



axred, bxrect : red; 
begin 

SelReci ,aiuwt,5,80.270,21 0); 
Sei Heel ( bxrect ,5, 230, 507 ,3 3Q) ; 

aRed left > axRed.lalt +5; 
aRecl. right :- ax Red right - 5; 
aRect, bottom := ax Red. bottom - 5; 
aRect.top := axRecuop + 5; 

bRed led := bxRed left +5; 
bRect. right ;- bx Reel. right 5; 
bRect. bottom := bxflect.bcttom - 5, 
o Ren .top •* bxReatop + 5; 

end: | Procedure faiitextrect ) 
procedure rappel; 

( chargement d'un problame a partir du dtsque 1 
j et affichage des definitions. ) 

var 

i.erreur ; Integer; 
r:Text; 

car : char; 
begin 

nt>mgrllie>'grille*+sn; 

ResetfF, nomgrille); 
erreur :- lOResull; 
Raadln (F.encoure), 
erreur > lOResult; 
Readln(F.solution); 
errnur > lOResult; 
it erreur -0 then begin 
lin ;= 0, 

while car <>™ do 
begin 

Read(F,ear); 
Texlin[lin] oar; 
lin :»lin + 1; 
end; 

textinlenglfi := lin - 1: 
Read|F r car); 
lin > 0; 

while noi EoI{F) do 
begin 

Read(F.Textin1[rin]): 
fnr=lin + 1; 
end; 

lextirillenglh > lin; 



end; (If) 
dose(f); 

if erreur o then begin 
SysBeepjl); 
Moveto(2O0, , lS0); 

DrawString ('C elte grille ii"e»sta pas I! 1 ); 
end 

else begin 
atfichejjrille: 
remplit_gril!e; 

moveio(5,B0), D^awSl^ifig('Ho^iIontalemer,t , ); 
TexlBox(@Textin,iexiinleng!h, arect, 0); 
movelo(5.225); DrawSiringCVeliralement'); 
Te*fcx(@Tertln1,textin1length, bred, 0); 
end; 

m 

end: {rappel} 



procedure salsiejiumero: 

( saisie du numiro da ta grille A charger ) 




var bo its, 
rd. 
rea, 
rok 

:rea; 



| contour ) 
| redangle pour le - ] 
j rectangle pour le +• } 
[ rectangle pour OK ) 



begin 

Eras.eRed(command9[S]); 

Setnect(boite,150,10.250,60); 
F ram bRou ndRect (l»Lle r 5, 5) , 

MovetoCIZO.asKDrawStnngcgnlle if 
PenSse(1.1): 

SetRed(r1 ,220,14,240,29); 

SetPsctfrcl, 224,40,236,51); 

SetRecl(rc2,170,40,182,51); 

PutMsgfV.rcl); 

PutMsgC-'.rca); 

SetRed(rok,190,35,214 r 55); 
FranierounclRod(rok,8,B); 

PulMsgfOrCrok); 

Frame roundrect(rc1 ,5.5); 
FrameRourxJRed(rc2,5 1 5); 
ease orri(sn[0]) of 

1 :nombre1 > ord(sn[1j)-48; 

2 : ncrnbrel := 10*(ord{&n[1])-4B) +ord(sn[2])-40; 

3 : nombrel := ioo'(ord[sn[i]H8) + i0'jord(sn[2]}-46) «>rd(sn[3])-48; 
end; (case) 

PutMsg[sn+'.',r1); 
repeat 

Gelmuusejc), 

II Button and RiriRect(c,rci) then begin 
nombrel := nonibre1+1 : 
if nombrel s 999 then nornbrel - 1 ; 
NumToString(nombre1,sn); 
EraseRounclRect[r1 ,5,5); 
PuiMsgfsn+V.n); 
for] > 1 to 30000 do; 
end;(if] 

if Button and PllnRact{c.rc2) then begin 
nombrel ;= nombre1-1, 
H nombrel < i inert nombrel > 1 ; 

NumToSlring(nonnbrel.sn); 

EraseRec!(rI ); 

PutMsg(an+'.',rl); 

ftjrj > i to 30000 do; 

end;(i1) 

unlit (hulton and RlnRec!(c,rok)): 

c.h>10; 
c.v :- 10; 

EraseRed(inRed): 

messages; 
rappel; 
end; (salsiejiumero) 



procedure sauve_gritle; 
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( sauveganie de la grille en co u rs sur dtsque 1 

vari : integer; 
I: text; 

begin 

rewrite) (, 'flrille'+sn); 

writoln(l,oncoure): 

wiileln(l,solbtion); 

tor I > Q to textinlength -1 do 

wrile(Uextinpl); 
writelnjf.'"); 

fori :- to lextinl length - 1 do 

write(f,le)clln1[i]): 
aose(1); 
end: (sauve grille} 




procedure quel le_case; 

{ trouve la case pointee par Is cj'seur | 

var I : integer; 
c : point; 

begin 

for i ;= 1 to 100 do 
begin 

GStmousalc); 

if Ptlnreclfocasespj) then ncase :- i; 
end; 

end; [quelle easel 



( analyse des commandes et branchement vers les routines concemees j 

varc : point: 
deiai : bngint; 



begin 
GetMouse(c); 

if PilnRfiflJcoorT'inanriftM]) then hegm 
efface; 

remplit_grille; 
sauvejjrille; 
end; |il} 

if RlnRea(c.commande[2]}then sauve jgrille: 
if PtlnRed(c,cornmandej3j) Ihgn begin 

BWeCurson 

PrOpen; 

PrCtlCall(iPrEv1Ctl,IPrEv1AII,0,u); 
PrCtose; 
ShowCurcor; 
end; (if) 

it Pt!fiReci(c,commande[4I} then sonie > true; 
if PtlnHsct{c,commande[5]) then begin 

if solllag - true then 

allicho solution 



sajsie_numen>; 
end; (if} 

c.v :- 1 0t 
end; (bouton) 



Voire 
premier 
probleme 
est 

page73.„ 



procedure Initialise; 
| initialisation ) 



procedure salslefmyEvent : EveniRecord); 
( Ultra tes touches clavier et afliche dans la grille ) 
begin 
queile_case; 

if encoursfrvcase] o '.' then 
begin 

If (myeverrt.Messageand dweodemask) > 96 then myevent.messaga > myeverrl. message -32; 
inkey > cftar(myevent.message arc c^arcodoaskj: 
case inkey of 
'A'..'Z': begin 

era£eRGCt{cases[ncase]}; 
PutMag (intey,cases[<icase] ) ; 
Deteejencoure.ncase.l ); 
lfisert(inkey,encour5,ncase); 
SysBeepM): 
end; 
otherwise 

sysbeep{ I ); 
end: (case) 
end (il) 

else sysbeep{2); 
end; (aaisioj 



miigrat(@triePort]; 
open port ((ffigport): 
PenPat (black); 
BackPat(whiicl; 
F r ame Rect (g Port . port Red) , 
inRect> gPort.ponRect; 
InselRectflnRect.l.t); 
ErasgRed(inReet): 
ToxtFonl[NowYo*|; 
TextStee(9), 
GeiFonilnfo(lnfo); 
initcursor; 
sortie := fatse; 
aoltlag > false; 
encours := \ 
with info do 
begin 

faso := ascent; 
Wbso',= DoseenV, 
end; 

laittextroct; 
sn>T; 
rappel; 
messages; 



end; {initialise} 



procedure elfaee; 

| eflace lu conlenu de la grille } 

var i : integer: 
f rtexl; 

begin 

fori:=1 to 100 do 

if (encouisp] in [A',.'Z;s,'.:z'\) then eneoyrsjij : 
end; (efface) 



{- 



begin (main) 
initialise: 
repeal 

it GetNextEventjeveryEvent, myEvent) then 
case rciyEvem.wtiat of 
MouseDown : bouton; 
KeyDown : begin 

If (mycvonl. message and charCodeMask) - 6 Ihan soltlag .= true; 
Saisiej my Event); 
end; 
end; lease) 
unlii SORTIE: 



procedure bouton; 



end. 
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onnaitre instantancmcnt 
l'heure de Vladivostok, 
Phoenix ou ■ — acccs- 
soirement — Paris... 
Tel est le but de eet acixssoire de 
bureau ecrit en assembleur 68000 
pour 1'efficacite rnais aussi, 
inutile d'essaycr dc lc dissimuler, 
pour le plaisir. 

Ecrire un mode d'emploi de 
fuseaux tiendrait du gag lant son 
usage est 'transparent' ; signalons 
seulement que cafetiere, tasse, 
lune, te'le^viseur et autre soleil 
indiquent ce que sont censes faire 
a cctte heure — et en gros - vos 
amis de Vancouver ou 
Singapour. 



Main (Bodec 



-d=b- 



A 



accessoires 




L'installation de fuseaux dans le 
'system' de vos disquettes de 
demurrage est aussi simple que 
pour d'autres acccssoircs et 
FontlDA Mover i'era tres bien 
i'affaire. Si vous etes nouveau 
lecteur de Pom's (Bienvenue !), il 
convient de signaler que, curnme 
d'habitude, la disquette d'ac- 
compagnement de ce numero 
contient 1'accessoirc installc dans 
le systeme et dans un fichier 
Funl/DA Mover, Les 'sources' 
sont aussi sur ladite disquette 
Mac 32. 

Lcs virtuosos de l'editeur de 
ressources vont aussi pouvoir 
s'occupci : les noms de villc ne 
sont pas dans le code mais dans 
une ressource (DITL-1G000 pour 
ne rien vous cacher), il est done 
possible de remplacer, pax 
exemplc, Faris par Brest ou 
Bordeaux. 



fuseaiiH ho i aires 




/SjiTN Katmandou* 
ft" ! -i fa i\Nev-De1hi* 
Is l aj /Wit; 



i 7iUV & i Jt V 

Hanoi Hangkok*a,jW /STFisMascate 
* ! ) 7^ Hong-Kong S'n9«P<>ur* Lhassa M ^J^ eWsKerg. 
"I Jthmm* Perth Djakarta bacca K.rwM ^J5? T4h « ran * 

No^M"«5 



Sydney 
-J Melbourne 
x^psyiles Salomon 
/■fiiSTN Noumea 
n f 3| Wellington 
Auckland 





Bagdad IS 
Djibouti 
Helsinki Q 
Athenesk fM 
Johannesburg \2li£y 

Varso vie ff 1 y£\ 
Paris I f a 
LisbonneXiesy 

Londres/nTTr 



Abidjan ^tsi 
RelkJavlkjjpN^, 

• : - : : , • - ^c«M 

° p*- 3 Phoen x i», Detroit "racas Montevideo fi"*^ 3 

J|y J.t"" New-York LjPaZ_. /fWts % 



Vancouver 



San-Franelsco B 
Papeete 

* heure mogenne 




t\ Mexico "5" A"' " Santiaqo So i\ ,, — , ~ 
M sm\ *°J^ tfem, K-T M "** *J Cap-Vert 



Source 'Fuseaux. Asm' 

• FUSEAUX - 

* heure a travers le monde 

* A2 s handle de la liste des paints 

DialogPtr 
A3 1 adresse du BlEMap du cadran 

* adrssse du handle d'un ob~jet tournant 
J A4 i eauvsgarde du DCEPtr 

* L)3 : coinpteurs 
D4 : pivot 

* ?rsl:m:kairse 

* INCLUDES ■ — 



Include QuickEcni.D 
include SystEqu.D 
Include ToolBliqu.D 



CUEllLUl/^LdlUS tuile IW] 

op-defined paranis [20*B1 



include MaeTraps.D 
include CalEqu.D 

Include mABcro.Txt 

* EQUATES 

csCutle equ ?1A 

csParam egu Sic 

NHwur »qu 12 

NFus equ 2 4 

* ecarts dans la liste des points 

Piv equ ;pivot 

LAiy equ 4 ; lunq ueui'K des aig uilles 

Ax equ 8 ;axe de rotation 

Ell equ 12 ;pet:i1: et grand axe ellipse 



* xRef 



Kftef 
xRef 



CxandAig 
PetltAlg 
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x?p f 

xRef 
xRef 



GerTIme 

SlnCos 

Rotvect9Q 



'.-3.-. ; 



xDef 
xDer 

deru 



dt 



S74CQ 
3GC0 
$0040 




; Ctrl /actions p&rlodiqaies 
;toutts 1*3 minutes 
;unlquement events raise a jour 
;pas da nenu 



les RoutiheS 

DIGORADYR-DERU 
Hor o la I hE s h y-DER M 
rRZ-DERU 

HorolazhEshy-DERU 
KLOZAnYR-DRRU 



1 :ouverture 
primp (unnspd) 
2 : controle 
status (unused) 
3 : f er mature 



* MOTS D' ENTREE 

* Compor tenant 
rio.W 
dc.H 
dc.W 
dc.W 

* Ecarts vers 

dc.W 

dc.W 
dc,W 
dc.W 
dr.. W 

* Tltre — 

talbenn dc.B 

dc.R 1 1 
.ALIGN 2 

* ouverture 8@@@g@ese@g@@@@e@@s@Eis@?£g&EeBBeeegeee8G8e 

D1GORADVR 

* PRELIM IN A IRES 

emp M.L.A2/A4 ;sauvegarde 
moveA.I Al, At ;t]CEPtr » rerjtstre sflr 

* Sauvegaide du GiafPti" de 1 ' appl icafcispri cours 

ep L ;pour le GralFtr 

emp .T.,SP ;GrafPtr » pile 

Getport ;GrafPtr AFFL en cwra » pile 

ObseureCursor ,-pour talre plus joli 

* QUESTION D£ LA FEWETRE I 1 . 1 I .1ILLI1 1 M I t -H-fH"H-H i 11 11 

tst.L duLlHlndow<A4) ;deja f«n*tco 7 
bne.W Prenestrameus 

" COM STRUCT IONS • ..♦*«.. 

; si l'on n'a pas de len^tre, tout est a coasttulre 

* COLLECTE DE L' ID DE BASE W^t+-trrt ± llllll±± ++ fl-mn 



dCtlRefNuiMAt) , DO 
#1,00 
DO 

#S r D0 
f5C000,Dl 
D0,D1 



move 
addQ 
neg 
lei 
move 
or 

emp - W, 51 

LISTE DE POINTS 

Collecte de la Llste et Placement 

GetRes «'pnt*',Dl 

dep A.L.A2 ,'handle dans A2 

moveA.L (A2),A0 ,-adrcsso 



tie 1'Aec 



;sous-lD Acc 



; ID da base surpile et ftsns Dl 
-+ +++4-H-H+H- H +■ + + + + H-++-H ++-H-t-H- 



Pivot, Al 
PiV(AQ) , <A1}4 
Laig(AO), (Al) + 
AX (AO) , (Al) + 
Ell (AO), (Al) 



;axes de 1' ellipse 



lea 

move .L 
move . L 
move .L 
move .L 

* Destruction 

emp . L , A2 
_Re 1 ea s eRe s our c e 
; Si l'on n r a paa deja uric fenctre, 

* 11 taut en fahrlquer une : 

* Placement de l'ID de la Maopemonde 

* dana 1'Itcm No 25 

GetRes t 1 D1TL ■ , Dl 

deo A.L,A0 vhandle 

move A. L (AO), AO 

move Dl, wo-rams * (lonBata+By+Wo) +ltmData+By (AO) 

* Collecte du Dialogue 

ep L ,-pour le DialogPtr 
amp .W.D1 

emp .L, tO i » heap 

emp .L, f-1 ;fenetre premier plan 

_GetKewDialog rfer.ecre fabrlquee ! 

movcA.L (SP),A2 jDialogPtr > A2 I pile 



* fonte 44*-4 *i : n . * i a i l t i i i ; i : i i t t i- 1 t i i i - i i — h — i — I — 

SeLSurL f enl6vB«ient du DlalogPtr 

SetFont #geneva,#9 

* flnitions i i i i i i i n - i - n- i -n-n -i . t nut linn it *- *+ * + 

move.L A2 , dctlHlndow (A3 ) ;WlndawPLx>DCE 
move dctlRef Hum IA4) , WlndowKind (A2 ) 

* COLLECTS DBS IMAGES - > 4 4 ( -H I H I I H I I I I I I I H H H -++++++ 

* cadra-i 

:ID principal toujowrs sur la pile 
dop.W.Dl ;ID » Dl, RAN 

GetRes #'bniap',Dl 
mouvO L, (SP) +,C«drHndl 

' Images Tournantes ■ 

lea 0J3jTour,Al .-adrnssB de t.ut^'.ji: 



?10 



moveQ I4,D2 
addQ H.DI 



;eompteur 



ep L 

amp ,W,D1 
_GstPloture 
dep ■ L, (Al) 
subQ |1,D2 
beq.S @20 
addA *2'Lo,Al 
bra.S %10 

* POSITION INITIALE DE LA LUNE ±±±±±±±±t±; 

* Collecte de l'Horloge Merquant Ih du Matin 

* e'eit la 23eme, a uno congruence pret, 

* apres 1'horloge locale 

bsr.W GetTime 
clt.L DO 

move dt+dtHour,D0 
add #NFus-l,D0 
divtl #NFua,D0 

swap DO ;n* de 1' item de 2h du mat 

* TopLeft du rectanole 1 i 1 1 i i i. i -H-n-i-Hi- n- t - 'i - 1 1 ' I i frH 

subA I 2 *P«td f EP fRect/Hfidl/type, »tondi!i 

bsr.W GetRect 

move.L Axe, DO 

3ub.L DO, TopLeft (SP) 

OpBin Top(SP) ,VectLun+w, I2X 

OpBin Left(SP),VectLun+hh,I2X 

* Colculs ~ 



i sonsne des Carres S norme +++++++++*+ 

QpBln VectLun+W. vv+Lo ISP) , X2X 

OpBin VectLun+hh.hh+Le ISP) , K2X 

OpBin vv(£P),w+LC(iiPJ,mulJ( 

ppRin hh (SP) .hh+Lc (SP) ,mulX 

0»pBin hh (SP) , w+Lo{SP) ,addX 
pea (SP) 

amp . W, ffaSQRT 
_FP6SK 

" vecteur uni talre i n; i t, 4 . j . j- i, 4,4-j- * »* ^ 4.. 
pea (SP) 
pea VectLun+w 
emp . W, IfoDiv+f fExt 
■PP68K 
pea ( SP ) 

pea VectLun+hh 

Giup .W, (f oDiv+f fE«t 
FP68K 

addA #2*Extd.SP : RAN 

" vecteur exact n- ■-*-*■+■*- 1 t i n -i i i i i t i > i i 



OpBin VE11, VectLun+w,muiI 
OpBin VE11, VectLun+hh.mulI 

* CALCUL 

* pour avoir les aiguilles de suite 

bar . W CalAio 

* ACHEVEMEMT , 

Prenestrameus 

DIstro 

_SctPort jancici; GrafPtr sur la pile 

ItioVeA.L A4.A1 

dep M.L,A2/A4 ; restauratlon 

HorolazhEshy 
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moveQ 10, DO ; return no error 
; Kenavo 
RTS 

* FERMETURE @?E@@l5@E|i@ee@9@l3@@?@ l 3&@S@&e@e&@S@S@@l}@f?Si; 
KLOZADYR 

* SAUVEGARDES 

emp M.L.A2/A4 ,'sauvegarde 
moveA.L A1,AS ;nrEPi:r 
ep L 

emp .L,SP 

_GetPort ;KrflfPtr en vigueur » pllo 

* LIQUIDATIONS ■ . 

emp ,L,CadrHndl 
_Re 1 ea s rR r r oh rr. r 
lea ObjToui.Al 
moveQ # 4, Dl ,-compteur 
SO Rmp .1., (Al) 

_Re le a s eR es g u r ce 
subQ #1,D1 

heq.s 810 
addA !2*Lo,ftl 

bra.S SO 

010 emp . L,dct 1 W1 nrl™ ( A4 ) .-/pile pour destrue. 

clr .L dcLlWiuduw I A4 ) jslnon, boua ! 
JJisposDialog ;plus besoin fenStre 

bra.S Distro ;on va ferir.ar 

« ROUTINE PRINCIPALE i BRANCHEHENTS 

* AO polnte sur le "Device Request: Block" et hi 

* sur le DCE 

emp _1,A4 ;sauvegardo 
moveA.L A1,A4 ;DCEPtr 

move csCode ( AO) , DO ;n° reauete 

ESI I . W, faccEvunt.DO, doCtlEvcnt fev&noitient 
SSi 1 . W, taccKun.UO, AcTMln faction period 

imEshy 

movcA.L A4, M fDCEPtr, pour JIODone 
dep A. L,M frestauration 
raoveO 10, DO ; return no error 
emp »l,jI0Done .-"request" traite, seut IODone 
RTS 

* E VEHEMENT • ■ ' 

doCtlEvcnt 

* ROUTINE PRINCIPALE S BRANCH EMENTS 

emp . L, A? ; sau vega rdff 

roo-veA.L csParam ( AO} , AO j sur I'eveneraent 
moveA.L EvtMessage | AO } , A2 ;WindowPtr 
nnvp KurNunt ( A fl }■ ,D0 ■nunrAro evAnentent 

331 I.W, lupdatEvt,DO,MftJ ;mlse A jour 
CtlSvtDone 

dep A-L.A2 jreEtauratioi! 
bra.S rrzEshy 

MAJ 

* MISE A JOUR - - 

•entree : OlalogPtr » A3 

emp . L.A2 
_DeginUpdnte 
emp . L, A2 
_DravI}{ a I ng 

bsr.W DessAutour 
emp .L,A2 
_EndtJpdAt"* 

bia.S CLiEvtDone 

* ACTION PERIODIQUE 

ActMln 

■ f-tECANISKE 

bsr.S CalAig 
bsr.W DessAutour 
bra.S irzEshy 

* sous-routines §nm®$$&MQ$ @@s@ t?8@i5@@f @gi{?@@e@@e@e@@g 

CalAig 

* CALCUL DES POSITIONS ;**■* 

* PREPARATIFS W+H-++++ ++++-H+W ++^-h++++++++^-i-h+ 

bsr.W GecTime 



moveA.L dctiWindow (A4 ) , 

subA ta*Extd,SP ,-angle/vecteur 
POSITION DE BASE ±± ± t+-t"H-+4- ++++ +++-H- t++ H I » i t +4- H -*++ 

Grarde Aiguille 

moveA.L SP,A0 
lea ga,Al 
move Lga.DO 
bsr . n 

Petite Aiguille . 

movsA.L SP,A0 

lea pa,Al ;adresse du resultat 
move Lpa, DO ; longueur 
bar.W PotitAIg 
petite aiguille en etendu 1 1 1 i 1 1 i 1 1 I I I I 1 I+* 



;adres$e du resultat 
," longueur 
GrandAig 



Lpa 

F.xrrt+bri+Lo(SP) 



* multiplication du vecteur unitaire orthogonal 

* par la longueur 

* calcul 

pea Lpa 
pea F.jttrd + uv+Lo (SP) 

fMulI 
pea 
pea 
fMulI 

.Teste pa en etendu sur la pile + 1 espace 

* rotation rift Uti ,~ 

,~dessous it- Utissus 

pea Extd+hh(5P) 
pea Lo(SP) 

;milleu » dessous 

pea Extd+w(SP) 

pea ExLd+bh+Lo (SP) 

fX2X 
,'dsssus » milieu 

pea (SP) 

pea Extd+wtLo(SP! 

;remplacement par 1' orthogonal 
move #-1, ISP) 
pea ( SP I 

pea EXtdtw+Lo (SP) 

fMulI 

* AUTRE £ POSITIONS *± ±±LLilllilU± ±±: 




on fait tourner le petite aiguille de piVfi 

Initialisations 

lea Ejitd{3P),Al ;adjr vecteur a tourner 



move 
* JJoucla 

80 lea 

" Ll ajj sitii La 



pea pa ; place results Int » pile 

fNHeur-l.DO ."eompteur 

SIn5,A0 ;adr lignes trigo de alfa 
hsjr.W Rnt-Alfa 



fliil 



moveA.L (SP) , AO 
adriA il.n, AO 
move.L A0 r (SP) 

OpBin Extd+vv+Lo ISP) , v{AD) , X2I ;r.sin(d+)i) 

OpBin Extd+ll)l+L<5(SP),h(A0),X2I ,- r . cos (d+x) 

f 1 ; 1 1 j | 1 1 ( 1 i . I . 1 t 1 [ L j L j L 1 j ! 1 t 1 t 1 t 1 j [ 1 -f-rf^c-f-t- 

subO 



tl,D0 

bne.W @0 

addA f 3*Extd+Lo, SP .-RAN 

* LUNE l SOI.E1X 4^-H^+++l4+-t+t-H ^w^ +4-j-4 jrH-4+4W+ 

* Coordonnees RelatiVKb de la Lune 

lea SinMin ( A0 ;adr lignes trigo de alfa 
lea VeetrLun , M ;vectaui a fairs tourner 

bsr.W RuLAlia 
OpBin Vecttun+w.Lunl+v, X2I 
OpHIn UeetLun+hh, LvinI+h,X2l 

* Calcul de toutes ies Coordonnees Absolues 

lea Lunl.AO 
niou^Q #4 r Dl ,-compteur 
810 move.L (AO), DO 

move DQ.D2 
muls HE11.D2 
divS VE11.D2 
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;c'est flni 



move D2,DU 
SWAP DO 
add Axe* v, DO 

SWAP UU 
add Axe+h,DQ 
BubQ II, Dl 

beq.s 820 
nove.L (AO) , Z + Lo (AO) 
move.! DO, (AO) 
addA t2*Lo,A0 

bsr.W RotVect90 

bra.S 810 
020 move.L 00, (AO) 

MS 

DescAutour 

' DESS1N ■■• 

* CADRANS i AIGUILLES mil ! ! I U ++I ■ Ht> t i++++-hH-H+-H- 

emp M.L, A3-A1/D3-D4 ; sauvcf ardc 
' Initialisations 

enrp . L , A2 

_SetPort 

aoveA.L CadrHndi,AO 

moveA.L (AO), A3 ,-adresse du bman 

l«a BitMapSec (A3 } , AO fadr da la bitiinage— 

move.L AO,BaseAddr (A3) ;„ a la bonne place 
lea pa,A4 ;adr dims aiguilles 

move #NF\je,D3 ;comptour 
move.L pivot, D4 ;pour la translation 

subA ILR+Lo+Wo,SP ,-Rect/Hndl/tvpe 



* Bouele ■ 

* collects du rectangle ■ i i i i i i 

move D3.D0 

bsr.M GeLRect 

* cadran t i i t t i it< i t tt-wtwt-t- 



i i i 1 1 i i i i i 



move.L Toplef t (5P) ,D0 

add.L Bounds+BotRight (A3) ,DQ 

sub.L Bounds+TopLef t (A3) , DO 

mova.L DO, BotRight (SP) 

eiTlp .L,A3 

pea Bounds (A3) *SrcRect=BitKapBounds 

pea 2«Lo(SP) jdeetRoct 

emp .W,#srcCopy ;ecrase 
erap .L,#0 rpas de ClipRgn 

StdBita 

* aiguilles : i I I i i t 1 1 1 1 1 i i 1 1 1 i i t i t i t i i H i >■ i i i 1 1 i t ; tm 

add.L D4, (SP) 

* grande aiguille 

emp ,L,(SP} 
_MnvP!Tn 
emp ,L,gd 
Line 

* potite aiguille - 

einp -L, 1320002 

PenSize jplus large que grande aiguille 

emp .L, (SP) 
_MoveTo 
erap .L, (A4) 

_lina 

PenNormal ,-xeLuur aux dimensions nortoales 

* Sortie 



moveA.L (A0),A1 ,-adresse 
move. I PicFrame+TopLeft (Al) ,D0 
move.L PicFramo+BotRight (Al) , Dl 
SUb.L D0.D1 
add.L Dl, BotRight (SP) 
cmp . I , AO 
pea Lc(SP) 
DrawPicture 




addA 



640 



" r'INlllUNS 
24Q 



11,03 
beq. S 
f2*Lo,A3 
bra.S £30 

l±fctttfctefct±fet± 



'.±i 1- 



;RAN 

; ros tan rat ion 





11,03 






dt 


dcB.N 1, 




beq.S 


920 


; sortie 


« uisiB 


DE POINTS 


pmp I . Vt 




D3 




Pivot 


dc.L 




hue . S 


eio 


jmystere des macros 


Lga 


dc.W a 


lea 


pa, A4 




;relntialisation/pa 


Lpa 


dc.W 




hra.S 






Axe 


dc.L 


addA 


ILu, A4 




;cas ordinaire 


VE11 


dc.W 




bra. S 


so 




HE11 


dc.W 



addA ILH+Lo+Wo, SP 
dep M.L, A3-A4/D3-D4 

RTS 

GetRect 

* COLLECTS D' UN RECTANGLE D' ITEM 

'entree : au moins 14 octets libres » pile 

* n° de l'item » DO 

•sortie i rectangle au Eomraet do la pile 
;fu sur la pile 
emp . L, A2 

crap .W,D0 

pea Lo+Wo+Lo+LR+Lo (SP) 

pea Lo+Lo+Wo+Lo+LR(SP) 
pea Lo+Lo+Lo+Wo+Lo (SP) 

UetUitem ;TopLeft sonnet de la pile (sous PC 
RTS 

HotAlfa 

* ROTATION D'TO VECTEUR DE L' ANGLE ALFA 

*entree : adxesse de SinCo*Alfa » AO 

* adrssse du veeteur a falre tourner » Al 
■sortie : AO » sans changemenL 

* Al » adresse du vecteur transforme 

eubA !2*Extd.EP 
Opsin w(Al) ,w+Lo(SP) ,X2X 
0p3in hh(Al),hh+Lo(SP),X2X 
OpBln w(A0) ,W(A1> .mulX 
OpBln hb (AO) ,hh (Al) ,mulX 
OpBin hh (AO) , w+Lo (SP) ,mulX 
OpBln w(A0) ,hh+Lo (SP) ,mulX 
pea hh(SP) 
pea vv+Lo(SP) 
emp .W,#f fEXT+FoADD 
_FP68K 

pea w(Al) 
pea hh (A1J 

emp .W, #f fEXT+£oSUB 
_FP68K 

OpBln w(£P) ,w(Al) ,X2X ,-eir> (d+x) » bonne adr 
*ddA #2 *Extd, SP 
RTS 

* CON ST ANTES ■ ■ 1 

SinS di^.W S3FFE,S8O0O.$OOOO,SO000,S0C0O 

CosS du.W 33FFE, 5DDD 3, »D742 , « C2€5, 8S39E 
SinMin dc.W S3FF7, 58EFA, 51 /57, *14b7, S0DBF 
CosMin dtr.W S3FPf:,SFFFF. S604B, S01C2, S6FBC 
« RESERVATIONS DE MEMOIRE * " " 

* TEMPS ±i LiiIlll.t +++++ii+ +++++ +^ ±*±±^±^^^^ : ^^ ± 
7f ich« de la date et du temps 

-t- t-t-H-+ + H I I I I H-l+H I I II H -4"H-t-+*-H- ^ 



; r .s Ind - 5 1 
;r.c<3 sd . cosk 
; r .cosd .sinx 
; r.sind .cosk 



.sin (d+x) » pile 



,-r . cos (d+x) » bonne adr 



eio 



* T.IINE i S0LE1L -H 1 1 If 4 ^ J. feH-l-+4 -> tm n iuH f 
62 l«a ObJTour,A3 

moveQ #4,D3 ;compteur 
S10 mova.L Lo (A3) , TopLef t (SP | 

move.L Lo (A3) , BocRlgnc (SP ) 

noveA.L (A3 1, AO .'handle 



ROTATION 



coin du rectangle » pivot 
longueur grsndefi a iguilles 
longvieur petltes aiguilloa 

fpetit axe de 1' ellipse 
.•grand axe -"- 

1111111 1 -H-H-+ ±±±±j: it+ i±±±illlll 



* Aiguilles t Cadran 

CadrHfidl dc.L ; BitMapHandle du cadran 

ga dc.L ;grande aiguille 

pa dcB.L NHeur,U ;petites aiguilles 

* Autres Objees ■ 
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VectLEJn dcB 


B 2*Extd. 


/emplacement 


lune etendu 


MACRO 


Ei f,x,y,a - 


Ob j Tour jno 


pas changer 


1' 


orcirc s 




CMP ( f ) 


tx), {y} 


Lu aHndl 


do. I 









BES 


ta) 


Lunl 


dc.L 





; emplacement 


lune en entier 


1 




TaseHndl 


del 









MACRO 


SiNon f , ti t y, a 


TassI 


del 





; emplacement 


iasse entier 


CMP {t} 


(x), ly) 


SolHndl 


dc.L 


Q 






3SE 


{a} 


Soli 


dc .L 





J ^ tap Idfidiient 


Eoleil Gntl^E 


1 




TelHndl 


dc.L 









M Af" tff 1 
l T in.k-, rvv 


ill - F A r j- , a — 


Tell 


dc.L 





.■emplacement 


tele en entier 


CMPff } 


U), <y) 








FIN 




BEQ.S 

1 






Fichier 'mABcro.Txt' 

• mABcro - 

• 

Macros G^niales 





CMP(f} {*.},{■/} 
BNE.S (a) 
I 

* RESSCURCES 

* GetRes 



yaducalcul 
- EQUATES • 



aqu 



* Mflfrrn gpnerale pour la collects doc resfiouireee 

*r l . 

* Parametres : type, ID » handle sur la pile 



Zc 


ecru 









By 


oqu 


1 




MACRO GhlRks TYPE, ID - 


Wo 


equ 


2 




CLR.L -(SP) 


Lo 


equ 


4 




HOVE.L (TYPE), -(SP) 


LR 


e?qu 


a 


; CGetang le 


MOVE.W (ID),-(SP) 


Extd 


equ 


10 


; longueur d'un etendu 


GetResource 


w 


equ 







1 


hh 


equ 


10 


;pointc cn etendu 


* _CullRes_ 


LSLr 


equ 


256 


; phrase 


* Kacro pour la collects de nombreuses ressourees 



* DIVERS 

* _SetFont_ ■ 

MACRO setFont fonte,taille = 
MOVE.W (fontel.-fSP) 

_TcxtFont 

MOVE.W ( tallle ) ,— [Se ) 
_TextSlze 

I 

" _J?2Coulc_ — 

*Traite toutes les sequences dans lesquetles avant. 
*d'^ppclcr anc routine on pousse deuK entiera aur 
*Ia pile (Hovexo,0f f SetRect, „ ) 

* - . . , 

MACRO f2Cou±c K,y,coui(X - 
MOVE.W (X),-ISP) 
MOVE . W (yl.-tSP) 

[conic } 

I 

* PETITE SOUTS 

MACRO tuu - 

JitoveM.L AQ-A1/D0-D2,-(SP} 
mnvB.W *1,-(SP> 
_SysDccp 

moveM.t (SP} +, AQ-A1/D0-D2 

I 

MACRO FIN - 
END 

I 

MACRO bP 1- 
CLR.1L} -(SP} 
I 

MACRO deP f, R = 
MOVE If) (SP) +, (R) 

I 

MACRO emP f , R - 
MOVE{f} {R).-(SP) 

MACRO mouvO L,D,Adtk ■ 
LEA (Addr},A0 
MOVE.(L) (D).(AO) 

I 

MACRO mouvl L,D,Addr = 
LEA (Addr).Al 
MOVE.(L) (D),(A1) 
I 



"Pour obtenir un handle sur one ressmrce, oh four lilt 
*souvent un ID et une instruction telle que 
"GetPicture rptniirim nn Handle 

, 

MACRO CollRes ID, Genre = 
CT.R.T. -(SP> 
MOVE.W (ID},-(SP( 
_Get{Genre) 
I 

* _CollPtirase_ 

*Regi5ter- stack-based-macro pour les 
1 rRsstiiiTr.ftfl de typf* £TR# 



•Macro pertnettant la collects des pointeurs sur les 
*phrasefi rf r une lisre 

* (3TRiHa[[iilK duns A0,Hu dans la llste dans DO qui 

*sert aussi de compteur) : 

*£TR Ptr sur la pile. Utilise aussi Dl . 



MACRO CollPhrase = 

MOVE.W tS.Dl 
MOVEA.L <AO),A0 
E100 ADDA.W D1,A0 

MOVE.B (AOl.Dl 
ADDQ.W #1,D1 
SUBQ.W #1,D0 

BNE.S £109 
MOVE.L A0,-(SP) 
I 



;donne Ptr /phrase 

I longueur ■ phrases 

;adresse » AO 

;ptr /phrase dans AO 

.'long phrase ri-.rr, Dl 

.-cause octet longueur 
.■decrement da compteur 
.■arrive bonne phrase 



it' yaducaicul 

* CAICUL 

* macros lea plus utiliseea de 3A1JE 

* MACROS OFFICIELLtlS ■ 

MACRO fX2X - ;et«ndu->etendu 



MOVE.W fFF£XT+FOZ2X, - (SP) 
_rr"boK 

I 

MACRO fX2I - ;6tendu->entler 

MOVE.W tFFINT+FOX2Z,-(SP) 
_FP6BK 
I 

MACEO fI2X = ;entier->etendu 

MOVE.W iFFTNT+FO!IJ5t,-(SP) 



Pom's n° 32 



51 



_FP68K 

MACHO fmull = ;multiplicatlen par un entifer 

MOVE.W f FF I MT+FOMUL , - (SP ) 
_FP68K 
I 

MACRO fHulX - ^Multiplication par un 6tondu 

move #ffEXT+foMUL,-(;iP| 
_FP66K 
I 

MACRO faddX - .-addition d'un etendu 

MOVE.W #FFEXT+FOADD,-ISP, 

_FP68K 

I 

MACRO faddS - .-addition d'un single 

MOVE.W tFFSGLtFOADD,-[SP) 

_FP68X 

f 

MACRO fmulS - ;«mlt Ipll cation par un single 

MOVE.W tFFSGL+FOMUL,-(SP) 

_FP68K 

I 

MACRO ttiivl = ; division par un entler 

MOVE.W IFFTNT+FODIV,- (SP) 
FPC8K 



rentier 



I 

MACRO freral - 
MOVE.W *FFINT i FQREM, (SP, 
_FP68K 

I 

MACRO fCOEx - fCQslnua 
MOVE.W *F0C0SX,-(5P) 
_Elems63K 

i 

MACRO tSINx = ; sinus 
MOVE.W #FOSINX.-(SP) 
_Eleius68K 

I 

*22 PERSO 

* Operation binaire 1 — *- 

*ue nombreuses operations du SAME utillsent deux 
'arguments et un code d' operation. La macro 
*ci desscus reproduit la forme g6n6ralo 
*de la suit d* instructions eorrespondante. 



MACRO OpBin A,B,op - 
PEA (A) 
PEA (B) 
F{opJ 
I 



END IF 



Fichier 'CalEqu.TxV 

* ■ CalEqu.Txt • 



T.fis square-H r. f -dessniss font- parrie rin 
'Standard Apple Numeric Environment" (SAKE) 
decrit dans 1' "Apple Numerics Manual" 
i ncl Uft dans "Inside? tbclntash" . 



* extraits de SANEMacs .Txt le 24 Juin 87 



* tJTJMEROS DES OPERATIONS 

luAOD uij.j 

foSUB equ 

f oMUL equ 



,-AddlLlun 

;sovstractlon 

.'Multiplication 



ioDIv 


equ 


e 


.Division 


foCMP 


equ 


8 


; compare 


foCPX 


equ 


10 


; c ompa re 


foREM 


equ 


12 


; remainder 


foZ2X 


equ 


14 


;->ecendu 


foX22 


equ 


lfi 


;^renrin— > 


luSQRT 


equ 


18 


,-racine cdrree 


foRTl 


equ 


20 


.■round to integral 


foTTI 


equ 


22 


;truncate tri Integral 


foSCALB 


equ 


24 


,Li;.dEy scale 


7= LOGS 


equ 


26 


.■logarithms base 2 


foCLASS 


equ 


28 


; r lass if y 


; UNDEFINED 


equ 


30 




foSETEilV 


equ 


1 


;set environment 


foCETENV 


equ 


3 


;get environment 


foSETHV 


equ 


5 


;aet halt vector 


fcGETHV 


equ 


7 


.-get halt vector 


fnD2B 


equ 


9 


;decimal->blnaire 


foB2D 


equ 


11 


(■ilnaire ^decimal 


foNEG 


equ 


13 


.■negate 


foABS 


equ 


15 


;vaieur absolue 


foCPYSGN 


ftqu 


17 


,- copy Sign 


foNEXT 


equ 


19 


; next-after 


fo.wrxcp 


equ 


21 


: set except ion 


foFROCENTRi 


equ 


23 


; procedure entry 


foPROCEXIT 


equ 


25 


; procedure exit 


fnTPSTXCP 


equ 


27 


; test exception 


; UNDEFINED 


equ 


29 




; UNDEI'INISD 


equ 


31 




* NUMEROS DES FORMATS 


D'OPERANDES ■ 


£ f -XZ 


equ 


soooo 




flDBL 


equ 


50800 




ffscr. 


equ 


S1000 




f f INT 


equ 


52000 




ffLNG 


equ 


S2800 




ff cOMP 


equ 






* Precision 


code masks 


: forces 


a floating point 


* output value to ht> 


cofirnfiri to the range and 


* precision 


specified. 






fcEXT 


equ 


snnnn 


rerendii 


t CDBL 


equ 


S4Q00 


; doub 1 e 


fcSGL 


equ 


J8000 


,'slngle 




; Class and 


sign inquiries. 




icSNAN 


equ 


1 


; signaling MAN 


fcQNAN 


equ 


2 


; quiet NAN 


f cINf 


equ 


3 


t infinity 


fcZESO 


equ 


4 


; zero 


: 


eau 


5 


; normal number 


f cDENOBM 


equ 


6 


; deno-rm*il number 



Bit indexes 
word* 



for bytes of floating- point environment 



f BIN VALID 


equ 





invalid operation 


f BUfLOW 


equ 


1 


underflow 


f30fL0W 


equ 


2 , 


overflow 


fBDivZER 


equ 


3 , 


Division by zero 


£B iNKXACT 


equ 


4 


inexact 


fBRNDLO 


equ 


5 


low bit of rounding 


fBRKDHI 


equ 


s 


high bit of rounding- 


fBLSTRND 


eqU 


7 


last round result bit 


fBDBL 


equ 


5 


double precision control 


fBSGL 


equ 


6 


o ingle precision control 


* Numeros des 


functions 










foLNX 


equ 


SOOOO ;loqarithme neperien 


foLOG2X 


equ 


$0002 ; logarithme de base 


toLNIX 


equ 


¥0004 ;Lg(l+x) 



Suite page 54,, 
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rthogiciel Plus de 
Larousse est une 
nouvelle version du 
correcteur orthogra- 
phique pour Macintosh. Elle 
integre de nouvelles possibilites 
telle la correction de documents 
'entiers' sauvegardes par 
MacWrite 4.5 et 2.0_ 



Orthogiciel 

II est livrf sur deux disquettcs 
contenues dans un petit classeur 
mode d'emploi bien presente. Pas 
de difficultes de mise en route, 
peu de contraintes d'installatiun, 
aucun probleme de mise en place 
sur disque dur. 



Le principe retenu pour la 
correction est le suivant : un 
document a iti sauvegarde par 
MacWrite 4,5 ou 2.0 (ou par tout 
autre traitement de textes en 
format 'texte scuT) ; 

- lancer Orthogiciel, 

- ouvrir le document, 

- demander la verification. 

Orrhogiciel s'arrere sur chaque 
mot posant un probleme et 
propose de le maintenir en I'etat, 
de le corriger, de consulter le 
dictionnaire avant correcdon. 



Le dictionnaire sur disquette ne 
comprend pas tout le petit 
Larousse mais 150 000 formes ce 
qui est beaucoup pour une 
disquette mais pas trop pour le 
francais. 

La grammaire 

Orthogiciel est un correcteur 
orthographique et £ ce titre, il 
laisse de cold les erreurs de 
syntaxe et fames d'accord. On 
pourra ecrire «nous avez» sans 
emouvoir lc programme (deoeler 
ce type de faute est d'une 
difficulte sans commune mcsurc 
avec la comparaison a un 
dictionnaire, meme de 150 000 
mots). 

Le mode d'emploi, pour 
compenser cette restriction 
propose un guide d'orthographc 
qui aide a ne pas accorder «elle 
s'est complu» et k accorder «elle 
s'est abstenue» par exemple. 
Le programme propose aussi une 
aide a la conjugaison des verbes 
qui connait les formes defectives 
evenmelles, les doubles formes et 
les participes in variables (du type 
succede). 

Le dictionnaire 

Surtout incomplet, le petit 



FJ< liters unification options frtefiatinatret b«'h« » miitu 




Larousse ne permet pas de 
satisfaire les besoms de chacun. 
Orthogiciel pcrmct de dcfinii un 
ou plusienrs dictinnnaires 
ulilisateur pour y inclure le jargon 
de telle ou telle profession. 
Chaque dictionnaire additionnel 
peut contenir 500 mots et on ne 
peut utiiiser qu'un seul de ces 
dictionnaires a la fois. 

Et les accents ? 

Orthogiciel, bien que concu pour 
le Macintosh se plante 
systematiquement si la zglee 
secretaire prend le soin d'ecrire 
«Etats-Unis, ceuvre, (Euf, A(re» 
au lieu de «Etats-Unis, oeuvre, 
Oeuf, Atre». 

Idem pour les ligatures fi et fi ; le 
programme prefere nettement 
«fichier» a «fichier». C'est bien 
regrettable car, bien utilise, le 
Mac produit une typographic de 
qualite douee de £ et autres O. 
«Ca marche !» ne marche 
justement pas. 

Mots defectifs 

Tout le francais ne tient pas sur 
un disque ct lc choix n'a pas du 
etre aise. Tontefois, des mots 
d'usage frequent manquent a 
l'appel : 

logo, convivial, deeodeuT, 
positionnement, picots, reutilise. 

Le programme s'arrete egalement 
sur surnaialite, numeVisfie, 
cranage, enfiche, occlusives, 
salvateur, compilez... 

Generer est bien dans le 
dictionnaire Orthogiciel mais les 
formes conjugue'es generfj, 
genere, ggndrant ne sont pas 
reconnues. 

Plus curieuse est la scission 
aleatoire de certains mots : 
procedures, position, caracteres 
sont parfois reconnus comme 
pro, c6dures, po, sitiun, ca, 
racteres. . . d'oij arrets frequents et 
inuules de la verification. 
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En cas de cesure avec trait d'u- 
nion comme ci-dessus, le mot 
union n'est pas reconnu, mais 
gene est rninime. 



A l'usage 



Dote de la fonction 'renvoyer', 
sone de eupier/coller, Oithogiciel 
est souple d'emploi. Un menu 
propose 1'aide a la conjugaison, 
un gcndrateur dc pluricl ct I'aidc a 
la correction par une recherche 
simplifiee dans le dioionnaiie. 
II est assez rapide et meme tres 
rapide en cunsiderant l'impur- 
tance de la recherche. 

Le defaut le plus penible h. 
supporter apparaTt lor.t rte la 
detection d'une faute : 
une fenetre s'affiche, avec un 
extrait de la phrase, le mot en 
cause et neuf boutons de 
controle. Le drame est que cetre 
fenetre disparait et reapparrait a 
chaque detection d'on un fatigue 
visuelle des la 5eme faute ct la 
migraine a la lOeme. Pourquoi ne 
pas avoir ople pour deux 
fenetres, en haut et en bas de 
l'ecran, affichees simultane*ment ? 



i fiehiors Uerlfieation Options Bir:riCirm<ili E!oil<' a <iiifilv 

CO^SULTfiTION 



□ ItUonnatre LFinoilSSC Copyflight 




gouffres 



gouge 

gouges 

goujat 

goujateries 

gaujats 

goujon 

goujonner 

goujons 

goulache 



Le confort y aurait gagne, A noter 
que les fenetres sont dotees de 
banes de deplacement alors 
qu'on ne peut les deplacer. 

En conclusion 

Des bons points : le prix, la 
rapiditc, l'efficacite, la possibilite 
de 1'installer sur disque dur : la 
disquetie originale n'est 
demandee que de temps en 
temps. 



Des points noirs : cette fenetre qui 
'flashe', les ct E et autres 6 
ignores, dc pctits defauts de 
fonctionnement, l'impossibilite 
de faire accepter 'CP/M' meme a 
l'aide du dictionnaire utilisateur 
du fait du 7". 

Orthngiciei reste toutefois 
irremplacable pour des fautes du 
type «programmme» qui peuvent 
echapper a la relecture la plus 
attentive. 



Li 



foL0G21X 


equ 


50006 


; 1 nq? (1 +x) 


foEXPK 


equ 


;ooo8 


;exponentielle de base e 


toEXP2X 


equ. 


S0OOA 


.■exponent is lie de base 2 


foF.XPIX 


psqn 


snnnr 


;exp(x>-1 


fcEXP21X 


equ 


$00OE 


;exp£ (x)-l 


EoXPWRI 


equ 


S8C10 


{exponentiation entiere 


fnXPWRY 


equ 


s a .- 1 2 


.■exponentiation generale 


foCOMFOUND 


tfqu 


5C014 


; cunifjuuud 


foMJNUITlf 


equ 


SCQ16 


;annuity 


foSINX 


&qu 


S0018 


■ sinus 


foCOSX 


equ 


5 3C-. A 


;coslnu5 


toTANX 


equ 




;tangente 


foATANX 


sr.: 


S0Q1E 


; Arctangpn1-R 


foRANDX 


equ 


50010 


fnombre aleatoire 


; NaiJ cedes. 


SAKSQRT 


equ 


1 




NAN Add 


equ 


? 




NANDlv 


equ 


4 




NANMul 


equ 


a 




NANRPH 


r.~- 


9 




NANASCDITJ 


equ 


17 




NANCOMP 


equ 


20 




NAN2ERO 


eqn 


71 




NANTRIG 


equ 


33 




KANINVTRIG 


equ 


34 




NANT.Ot; 


«?qu 


36 




MANPOWER 


equ 


37 




NANtlNAN 


equ 


38 




NAN1NIT 


equ 


2S5 . 


. .suite de la page 52 



STRUCTUREXPERT 



La solution pour programmer de maniere 
structures en MSBASIC™ et ZBASIC™. 
STRUCTUREXPERT™ vous permet de 
disposer d'un ensemble d'analyses qui 
peuvent etre visualisees (fenetres 
"scrollables"), sauv£es separement sur 
fichiers, ou imprimees : 

. Arboroscence complete (descendante 

et ascendants) des appels GOSUB et 

CALL. 

. Listes triees sur plusieurs types de 
criteres des GOSUS et des CALL. 

. Statistiques : frequence dappel de 
chaque routine. 

. Detection d*erreurs logiques (boucles 
non contrrjlees, recursivite illegaie, 
labels et routines non utilises). 

STRUCTU REXPERT™ 495 F TTC + 20 F de port 

Paiement par CB ou cheques adresses a 
Q.S.I. - 1 49, rue Qberkampf - 7501 1 PARIS 
Tel : (1) 42 49 37 95 
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Programme 
COPY 

Apr&s avcir saisi r^e r.ndft .sons 
moitiLeur, vous le sauvsgarderez 
par ; 

BSAVE COPY, A$6000,LSA03 



6000 
6UU8: 
601 0: 
6018: 
6020: 
6026; 
6030: 
6030. 
6040; 
604 a i 
605(7; 

unn a-. 

6060: 
6C68: 
6070: 

6078: 
608 0: 

trow: 

6090: 
60SS: 
60A0: 
8SSM-! 
60B9: 
60B3: 

60C0: 
60C8: 
60DQ: 
60D8: 
60E0: 
60E8: 
60FO: 
60F3: 
6100: 
6108: 
6110: 
6118: 
61 20: 
6128: 
6130: 
6138: 
6140: 
6148: 
6150: 



:AD 03 
:BE UD 
:60 20 
:4C 09 
:AB AE 
:2S 07 
:48 4A 
;DF 99 
:AA CA 
:ED FB 
:8D Of 

:18 60 
:F0 31 

.02 DO 

-.10 88 
-.83 Bl 
;02 AO 
■90 09 
BE SI 
81 FA 
E6 3B 
F0 07 
AO 60 
04 02 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 

00 00 
08 A6 
A4 07 
68 65 

01 31 
AC. 19 
DD 6D 
19 61 
63 61 
8D 50 
8D 53 
80 54 



BE SB 
61 61 
F5 BE 
BE 80 
BA 60 
AS BS 

4A 4A 
53 BF 
DO EO 
BE 8D 
BE 85 
00 85 
A2 00 
20 8C 
28 Bl 
Bl 3A 
3 A A 
02 Bl 
CP OA 
3A A2 
E6 3A 
E6 FB 
88 30 

00 80 

01 00 

oo oo 
oo oo 
oo oo 

00 00 

00 00 

00 00 

00 00 

06 AD 

AD 6D 

ac 69 

oe c9 

61 EC 

65 DO 

88 88 

AD 38 

BE 8C 

BE 3D 

BE 18 



62 61 
AS OA 

cs or 

08 BE 
8A 48 
BB 60 
A3 8A 
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e programme ajoute 
Line commande 
COPY a ProDOS. 
En effet cette 
commande non 
implantee d'origine lui fait 
cruellement defaut car il fant 
avouer qu'il est plus pratique de 
donner un ordre directement au 
clavier plutot que sortir son 
copieur favori. 

Cette commande servira pour 
recopier un fichier texte 
volumineux d'un disque a un 
autre par exemple. 

Mode d'emploi 

Cette nouvelle commande est 
disponible au clavier ou par 
programme apres avoir tape" : 

BRUN COPYOU 
- COPY 

sous ProDOS exclusivement. 

La syntaxe de la commande est la 
meme que celle des autres 
commandes ProDOS, a savoir : 

COPY cheminl, chemin2 

Cheminl est le chemin d'acces 
(pathname) du fielder source, 
chemiri2 celui du fichier de 
destination, par exemple : 

COPY /bureau/dossier/ 
cll&jit r /archi vs/cl lent 

Si le nom du volume est omis, le 
programme prendra le lecteur par 
defaut, e'est a dire celui que 
ProDOS utilise quand on tape 
CATALOG. 

Cette commande externe permet 
la copie de tous types de fichicrs 
(system, text, AppleWorks, 
binaries, uummande...) mais ne 
peut copier des volumes, Ainsi, 
1' ordre : 

COPY /DISQUE/, /RAM5/ 

est invalide. 

Si l'utilisateur ne. possede qu'un 
lecreur de disquettes, il devra 
utiliser l'eventuel disque virtuel 
comme tampon. 
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ED 


FD 


A9 


9D 


20 


ED 


FD 


6720 


A 7 


ES 


Fl 


F4 


AO 


FO 


FA 


F3 


6948 :E5 


AO 


E5 


F3 


F4 


AO 


E9 


££ 


b50U:20 


4D 


63 


K 


DO 


03 


AD 


EA 


6728 


AO 


E3 


E5 


EC 


F5 


ES 


AO 


E4 


6950:E3 


EF 


F2 


F2 


E5 


E3 


F4 


AE 


6508:65 


an 


OR 


66 


AD 


2B 


66 


AD 


6730 


A7 


F5 


EE 


AO 


F6 


E9 


E3 


E8 


6958:00 


DO 


F2 


EF 


C4 


CF 


D3 


AO 


6510:54 


66 


AD 


6C 


66 


AD 


8A 


66 


6738 


E9 


ES 


F2 


AO 


EF 


F5 


F6 


ES 


6960: EE 


E5 


AO 


FO 


E5 


F5 


F4 


AO 


6518: AD 


A7 


66 


AD 


C3 


66 


AD 


E5 


6740 


F2 


F4 


AE 


00 


D3 


EF 


F5 


F3 


6968:E7 


ES 


F2 


E5 


F2 


AO 


Fl 


F5 
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6970:E5 AO E8 F5 E9 F4 AO EC 
697S1E5 E3 F4 E5 F5 F2 F3 AO 
6980:CO AO EC El AO ES EF E9 
6988-.F3 AE 00 CC E5 AO E2 F5 
6990 :E6 fc'S L5 t 2 AO EE £5 AO 
6998 :FQ E5 F5 F4 AO F3 A7 ES 
C9A0;ED FO EC EI EE F4 E5 F2 



69A8:A0 CO AO EC A7 £5 EE E4 

69B0-.F2 EF E9 F4 AO E4 FB F3 

69B8-.E9 El EE ttS AE 00 C9 EC 

69CQ-.AO FS AO El AO E4 F.5 F5 

<59C8:F8 AO EE EF ED F3 AO E4 

69D0:E5 AO F6 EF EC F5 ED ES 

69DB:A0 E9 E4 ES EE F4 E9 Fl 



69E0:Fu E5 F3 AE 00 CC El AO 
69E8 :E3 El F2 F4 E5 AO E4 E5 
OF0:F3 AO E2 EC EF E3 t'3 AO 
6 9F8 : ES F.I F4 AO FS EE E4 EF 
6A0Q-.ED ED El E7 FB E5 AE 00 



Source COPY.S 

Assembleur Merlin Pro 



- Fr&d&ric Razay / Julllet-aouz &7 



trtr **** * * 



GOTHEM 





1ST 


OFF 


BUFFER 




}( 


Al 




pie 


R2 




$3E 


A4 






START 




stoma 


DEBUT 




START! 


length 




Mf 


PCL 




$3A 


HIHEM 




$73 


ADR 




ftt 


»vl™ 




$3D0 


EXTftHCHB 




SBS0 7 


ERROUT 




$BE0i 


OEFSLT 




SREJC 


DEFDRV 








fBESO 


XLEti 




SBES2 


XCUUM 




fUl EJ 


pairs 




SBE54 


FBITS 




SBE5S 


VP ATM 




$BE(C 


YFATHZ 




$BB CE 


aitmsa 




fobftt 


GETBUFR 




$BEF$ 






fBFOQ 


bitmap 




SBF5S 


DATE 




$BF90 


TIME 




fsrsp 


STROUT 




SDB3A 


ISSDSF2 




SFSSC 


PRBYTE 




SFDDA 






fFDED 


MOVE 




GFEZC 


GET_TIME 




$S! 


DESTROY 




fcl 


CREATE 




SCO 


SET_FILE_ 




- fc3 


SET_F ILE_ 


IKFD 


- fC4 


WLIJIB 




v& 


GET PREFIX - 


fc? 


OPEN 




fca 


READ 




$CA 


WBTTF, 






CLOSE 




fee 


GET_EOF 




fOl 




ORG 


START 



•STA 
LDA 
STA 

LDA 
STA 
JSR 
CUP 
due 
JMP 

STA 
STA 
TAY 
LDX 



OI.OCMIH? 
EXTRHCHD 
OLDCXnil 

liPFIH-DEBUT-tSFF 

KBPACSS 

GE TBOFR 

£$0C 

COTMZH 

ERROUT 

EXTRKCHD+1 
ADR*1 




LDA tiBFRGES 
SEC 

SRF RTMMSR 

Sffl HltPfSB 



LDA 
STA 
STA 
LDA 

STA 
LDA 
STA 
JSR 

cue 

RTS 



£0 

EXTRKCUD 
ADR 

£>D£BVT 
PCL*1 
£<DEBVT 
PCX 

FELOGE 



mtfLI 
BHL1 



Relotjeur de la comsande 



LDA EXTRNCMDft 



4itU4 a 1 'aireSM tADRESSE) 
DEBUT dolt etre multiple de 25S 
la zone cos donnees est 
separ4e du proaraxiiBe par un 00 
If progcaBmo roiccjc Jfi 
structure d\i MLI 

alnsi que lea pazemetnes 
6ventuela 

ELOGE LDX £0 

Lb* E$FF 

LDA iPCL, X) 

BEO RTRAHS 



,J5S 


THSOSPS 




WY 




Lot 


LENCTH 




JMP 


TEST 


CPY 










BUB 


STJWB 


HIEUtlE 


DEI 




LDA 


tPCLi , t 




DEY 




cm 


C$BF 




STY 


XLEN 


RSF. 


homli 


MBSNEl 


LDA 


COPY 


us. ■{ 






LDA 




LDA 


(pc-i; , v 




LDY 




CMP 






Sth 


XTEfltfADDF 


BHE 


NOMLI 




S JX 


XTEKNAUDR+l 


DEY 






LDA 


to 


LDA 


(PCLi , X 




STA 


XCNVM 


LBY 


€5 




STA 


PBITS+1 




C$20 




TJIA 


e 3 


EES 


RML1 




ST/, 


PBITS 


LDY 


L2 




CLC 




LDA 


(PCL) , Y 




RTS 




SEC 










SRC 


£>D£BUT 


PASMIEN 


SEC 




BCC 


RTRANS 




LDA 


OTDRUFF 


CMP 


£>PFIN-DE3UTt ?FF 




LDY 


OLDBUFF+2 


BCS 


STKANS 




STA 


DSFFBR 


ADC 


EXTRNCMDl 1 




srr 


BUFFER-H 


STA 


(PCL) , Y 


OLDCW 


JMP 


SFFFF 


USX 


to 


******** 


. * 




tttY 




* 






LDA 


(PCL, X) 


* Initialisation pour le GQple 


STA 


(adr, xy 








ISC 


PCL 


*r ****** ** 




IlIC 


ADR 








BHE 


NOCARHY 


deux p 


ithn&mes necessaices 


IDC 


PCLtl 




LDA 


FBITS 


ISC 






AM} 


£3 


LDA 






CMP 


£3 


CUP 


Pd+J 




BEQ 


GOODBOY 


BEQ 


RFW 








np.Y 






LDA 


£$10 


BHI 


RTRAN3 




MP 


FRkOOT 


BNB 


PBOUCLB 








BUI 




QOOOBOY 


LDA 


VPATtU 








LUI 


'SPA1HI*! 


RTS 






STA 


PARMGFI+1 








STY 


PARMGFI+2 


DS 


1 














IDA 


VPATH3 








LDY 


YPATtlZ-rl 


e que 


la comztar.de 




STA 


PARMCRE+1 


en COPY 




sri- 




DS 


DEBUT-' 




LDA 










LOT 


MIME1M 


CLD 






STA 


OLD11IM 


LDX 


BUt t Ot 




STY 


OLDHIK+l 


LDA 


VPATH1 








STA 


BUFFER 




LDA 


VPATH1 


LDY 


BUFFER*! 




IDI 


VPAW1-H 


LDA 


VPATHf-1 




STA 


BUFFER 


STA 






STY 


BUFFER * 1 


SIX 


VLUBUhV 




LDY 


£1 


STY 


0LDBUFF+1 




LDA 


(BUFFER),? 


LDX 


CO 




cm 


£'/' 


LDY 


CI 




BEO 


PRFXST1 


IJiA 


(RtlFFFR) , V 








CMP 


£" ■ 




JSR 


ISCFATH 


BUB 


TEST1 








IHI 




PRFXST1 


LDA 


VPAW2 


JKP 


TEST 




LDY 


VPATH2+1 


CPX 


comma 




STA 


BUFFER 


BED 


MIEWNE 




STY 


BUFFER41 


run 






LDY 


CI 


BUE 


PASMIEH 




LDA 


(BUFFER) , Y 


IKX 






CUP 


lV 
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BED 




JSR 


QEOF 


JSR 


INCPATH 


» Choislt un 


buffer pour 








FRFXST2 JSR 


GETFINFO 










un 


to 


* Varifie qua 


la fichiar 




PUSEUt 


n'e-st ni un 


Directory ni 


STA 


POSE0F*l 


yn ii^hier Bad 


STA 


POSE0F*2 


uu 


PARHCFH4 


LDA 


PARMfiFf+fl 


Off 


CI 


ldy 


PARHCFI* 5 


HSU 


BAD1IFE 


STA 


CALCCL 


CMP 


LSF 


STY 


CALCUL* 1 


J WE 


OOODTYPE 


ASL 


CALCUL 






RCL 


CALCVL*! 


B*DTrP£ IXU 


C9D 


LDA 


CALCULfl 




ERROUT 


BEQ 


TAILLE 






LDA 


C14S 


■ Necopie las 


paramatres 


SIA 




du flchier source dans 


BNE 


CHERBUF 


la : t' i das 




TA1LLE LDX 


CALCUL 


* paraaatres du fichlar 


WX 




rfA.it: t nut Inn 




STX 


ECCO 






CHERBUF DEC 


ccco 


GOODTS'PE L£W 


£2 


UH 


ECCO 






JSR 


GETBUFR 


LM 


PARHGFI.X 


BCS 


CHERBUF 


STA 


PARHCRE,X 


STA 


PARHLIT*3 


CPX 


£7 


STA 


PARHrXH+i 


BNE 


GFT_CHE 




to 


ton 


nmoooii 


STY 


PAHfiiLIT*2 


sta 


PARJKRE*) 


STY 








UM 


ECCO 


* Va eharclzer 


1 'heure at 


STA 


LENBUFF 


la date de citation 






* du flchier destination 


* Provide au 


transfert 






rfflfl tnfnna 


t i tin 5 


JSR 


HEBDAT 










SUITE LDA 


PARMECF*Z 


UH 


date 


sec 




tew 


DA TEH 


SBC 


POSEOF 


SOI 


PARMCRE+8 


STA 


RESTE 


STX 


PARMCRE+ 9 


LDA 


PARMEOF+J 


Iffl 


Tine 


SRC 


POSEOF* I 


ISV 




STA 


RESTE*1 


sr/i 


PARHGREtlO 


LOA 


FAPMEOFH 


six 


PARMCRE-Hl 


SBC 


POSEOF*2 






STA 


RESTE-12 


JSR 


CREE 










IDA 


RESTE-t-2 




hire flflvc^t 


RUE 


SOTTEI 




LDA 


RESTS*! 






CRT 


LENBUFF 




£4 


BCS 


SUITE1 


JSR 


GflWFF 


STA 


PARMLIT*S 




f.O 


LDA 


SESTE 


sir 


PARHOUV*3 


STA 


PAROL! T+4 


STA 


PARMOUV-*4 


JHP 


SUITES 




VP ATM 


SUITE1 LDA 


£0 


issx 


VPATHl+1 


LBV 


LENBUFF 


STA 


PARI4DUV*-! 


STA 


PAAW.IT* 4 


sty 


PABHOUV*2 


STX 


PARMLIT+5 


JSR 


OOVRE 


SUI TC2 JSR 


LIT 


IDA 


REFNOM 


LDX 


PARMLITti 


STA 


PARMLIT+1 


WY 


PARttUT*7 


STA 


PASMEOF*! 


TXA 








etc 




ion 


ti 


ADC 


possor 


JSR 


tSSOTf 


STA 


POSEOF 


ldy 


£0 


TYA 




STY 


PARM00V*3 


ADC 


POSEOF* 1 


STA 


PARMOOV4-4 


STA 


POSEOF* 1 






LDA 


£0 


urn 


VP ATM! 


ADC 


ft»wr*j 


LDY 


VPATH1*! 


STA 


POSEOFtZ 


STA 


FARMOOVIl 


STX 


PAXlfeCK*'! 


Si* 


PARMDUVfi 


STY 


PARHECR*S 






JSR 


ECRIT 


JSR 


OOVRE 










LDA 


POSF.flF*3 


FJM 


REFNVH 


CUP 


PARt£OF*4 


sra 


PARHECR*! 


acc 


3VITE-3 





UA 


PQSSOF+1 




LDA 


BUFFER 




CUE 


PARHEOF+3 




etc 






BCC 


S01TE3 




ADC 


£1 




LDA 


POSEOF 




STA 


Al 




cue 


PARMEOF*2 




LDA 


BUFFER*! 




BEQ 


em 




AtiC 


to 


SVii£3 


JHP 


SUITE 




STA 


A 1 . - 1 










WY 


CO 


END 


JSR 


CLOT 




LDA 


(BUFFER) , 










SEC 






LDA 


VPATH2 




ADC 


BUFFER 




LDY 


VPATB2*-! 




STA 


AZ 




STA 


PARHSFI 1 1 




LDA 


SUFFER* I 




STY 


FAFflSFI*Z 




ADC 


10 




LDX 


Li 




STA 


A2+1 


RECOP 


LDA 


PARHGFI*2,X 




JSB 


LITPATH 




STA 


PARUSFH2, X 




rr.r 






DEX 






ABC 


£3 




bud 


RECOP 




CLC 












ADC 


BUFFER 




JSK 


FIXFILE 




STA 


Ai 










LDA 


BUFFER*! 




RTS 






APC 


CO 










STA 


A4*l 


* Feme Jo fichioi? source 








pula 1 e 


tichinr destination 




IDA 


A2 










SEC 




CLOT 


LDA 


PARMLIT+l 




SBC 


Al 




STA 


PARMCLO+1 




TAY 












Kfflf 






JSR 


TERME 


DEPIJJCE 


DEY 












LDA 


(Ai) , r 




LDA 


PAsmsen 1 1 




STA 


(A4> , r 




STA 


PARMCLO*l 




CFI 


LU 










BNE 


DEPLACE 




JSR 


FERME 
















LDA 


PARM0N*2 


PESTOPF 


i.n» 


mjmnt 




CLC 






LDY 


OLDUIMtl 




ADC 


LI 




STA 


HIHEH 




STA 


Al 




STT 


HIMEmi 




LDA 


PARMON'3 










ADC 


LO 




LDA 


OLDBUFF 




STA 


Al*l 




LDY 


OLDBUFFtl 




JSR 


t.TTPATH 




STA 


BUFFER 




SEC 






STY 


BUFFER* 1 




ABC 


PARMONtZ 










STA 


A2 




RTS 






LDA 


PARMON+3 










ADC 


LO 


• Met le pre/jjre du iecteur 




STA 


A2*l 


nar tififaut 


davARt la pathname 




LDA 


SUFFER 


r points 


P" 


WFttS 




CLC 












ADC 


LZ 


INUPATti 


LDA 


it 




STA 


k4 




JSR 


G3DFF 




LDA 


BUFFER*! 










ADC 


CO 




LDY 


CO 




STA 


A4+1 




STA 


PARM0M3 










STY 


PARHON*2 




JSR 


MOVE 




STA 


FARMFREF 1 1 










SIT 


PARMPREF* I 




LDX 


to 




STA 


LITPATH+2 




LDA 


(BUFFER) , 




STY 


LITPATH+l 




STA 


ADO+1 










JSR 


LITPATH 




JSR 


PRNDPREF 




CLC 










ADD 


ADC 


£0 




JSR 


LITPATR 




AUV 


12 




BEQ 


PASPKEt 




STA 


(BUFFER), 




RTS 






ItiY 












LDA 


£'/' 


PASPREF 


LDA 


DEFSLT 




STA 


(BUFFER), 




ASL 






JSR 


LITPATH 




ASl 






CLC 






ASL 






ADC 


12 




ASL 






TAY 






ASL 






LDA 


£"/• 




TAX 






STA 


(RUFFPJti , 




LDY 


DEFDRV 










BUY 




LI TP ATM 


LDA 


JFFFF 




TYA 






AND 


H0V00111 




LSR 






RTS 






TXA 












SOS 




********** 






STA 


PARMON+1 


* 







* Appals au ProDOS 
JSR ENLICNE * 
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STY 




JSR 
JMP 


RESTORE 
HARM 


CALCtlt, 
OLDBUFF 


ns 


p 






ML J 


JSR 










DS 


j 




DFB 


GET FILE FffFO 


JSR 


EfT"ACE 


• Table des sdressejs 




DS 






DA 


PARMGFI 


















BCS 




IDA 










STR 


COPY 




RTS 




LDA 


ERR 1*1 












HFfffiA T 








F.RR1 +2 




ML T2 










2b 




JSJt 


S TROUT 


LEA 


MLI3 










DFB 




PLA 








PARf-lQFI 


DFB 


?0A 








¥tiA 




LDA 


liLI-S 




mi 


i 7 








JSR 


PRBYTE 


LDA 


MLI 6 


PARMSFI 


DFB 


$07 








LDA 


£SA0 


LDA 


HL17 




DS 


13 


CREE 




MLI 


JSR 


wv* 


LDA 


MLI 8 


n h rift*/*-. Pa n 


DFB 


$6 7 






CREATE 




£"; " 


LDA 


Hf> J 9 










DA. 




LDA 


£DA 


MLIA 




DFC 










JSR 


COOT 








DS 






RTS 




LDA 


£$A0 


LDA 


fillC 




DFB 










JSR 


COOT 


LDA 


MLID 




DS 


7 


,r,Tn re C 


JSR 


iuZ 


FLA 






ML1Z 




DFB 


v 0..' 




DFB 


OPEN 


£28 


LDA 


ML IB 




DS 


4 




DA 




LDX 




ML7F 


HCFJIUW 


DS 


1 




BCS 


ERR OR GETfiL I 


CMP 


ML [CODE, X 


jUU 


MLIC 




DFD 


$4£ 








FFQ 


Qtrtkm 


LPA 


MLIH 














DEX 




LDA 


MLI I 


PARMOW 


DFB 


f02 


ECRIT 


JSR 
DFB 


MLI 

WHITE OOIOUI 


BHE 
TXA 




LDA 
LDA 


MLIJ 
MLLK 




DS 


3 




DA 


PARMECR 


£TA 


ERS2*1 


!.DA 


MLTL 










BCS 


ERROR 


ASL 

CLC 




LDA 


ML1M 


PAFMPREF 


DFB 


SUl 




$T-$ 






LDA 


tfLIN 




DS 
DFB 


2 

$01 






ERR2 


AJ>C 
TAX 


£0 


LDA 


MLIO 


PARHDES 


FERME 


JSR 


MLI 




LDA 


MLIP 




DS 


2 




DFB 
DA 


CLOSE 
PA RMCLO 


DOT 
LDA 


MLIERKfX 


LDA 
LDA 


MLIQ 


PAPHCLO 


DFB 
PS 


$01 
1 




BCS 


ERROR 


IlfX 




LDA 


ML1S 








RTS 




LUY 


MLXERR/X 


















JSR 


STROVT 


BRK 






















ConF.MSt; 


HEX 


»D 












DFB 


GET_EOF 


LBA 


£? 








ASC 


" Cade 




DA 


FARMEOF 




COOT 


POSZOF D5 


3 




HEX 


OV 




BCS 


ERROR 


LDA 


£$SD 


BESTB DS 


3 










RTS 




JSR 


COOT 


OLDtiUi OS 


2 


* Codes c 


'etreur rfu MLI 



LIT JSR 
DFB 
DA 
BCS 

srs 

PffMJPREr JSR 
DFB 
DA 
BCS 
RTS 

EtfLIGHE J&R 

OSS 
DA 

BCS 
RTS 

EFFACE JSK 
DFB 
DA 
BCS 
RTS 

FIXFILE JSR 
OFB 
DA 
BCS 
RTS 

CBVFF JSR 
CCS 
RTS 



MLI 
READ 
FABMLIT 
ERROR 



MLI 

GET_PREF1X 

PAPHPREF 

ERROR 



<JHL1 HL 
PARMON 
ERROR 



MLI 

DESTROT 
PARMDES 
ERROR 



HLI 

SET_F I LE_ INFO 

PARMSFI 

ERROR 



GETaUFP 
ERROR 



" Affichsge du code et du 



BSxoft rm 

CMP 

BUS 
LDA 

tor 



ERRl 

PARMCRE-H 
PARMCRE*2 
PARHDF.Sf ! 



ULICODE HEX 01042S37SS2a2E4t}i243444Sl«4?431 
04A 4B4C4D4ESeSlS£i3SiStS HA 

Hill ASC 'Miuvtis eodt da f one t Ion da HL 

I. • 

HEX 00 

MLI2 ASC 'Nombre de parasi^tres incorrect 

HEX 00 

?n plclne . " 
HEX 00 

ML If ASC "Erreur si 'entree/ sort i e. ' 

BEX 00 

MLI5 ASC "Pas de Deripherique connects, " 

HEX no 

HLIi A.SC "Dlsquo protege A 1 *6orl tuz-B. * 

HEX 00 

MLI 7 ASC "La oisqtiBtte a ete changes. " 
HEX 00 

HLIB ASC "La syntaxe du nom est incorrec 
te. - 
HEX CO 

ML13 ASC "11 y a dtja jhuit ficfjiei'j oars 

res. " 
HEX 00 

MLIA ASC "Ce nwnero de reference n'est p 
as ceJui d'tin r 

HEX 00 

MLIB ASC "Sous-caLjiJague liiexlscant . w 

HLX OU 

HLJC ASC **Le volume n'est pas dispanible 

m 

HEX 00 

MLID ASC "Lc fichloz n'aat pao dans la c 

at-Blcigutt demand^, " 
HLX 00 

tiLIZ ASC "Le tichler exist* diji. ' 
HEX 00 

MLIE ASC *Pas assez de place jur ce voiu 



NLIF 
MLIL 
ULIM 
UtitU 

MLIO 



tiLiy 



HEX 00 

ASIC "Le catalogue principal est pie 

in. m 
HEX 00 

ASC "Le MLI est trop ancien pour li 

re ce ficnier. " 
HEX 00 

ASC "Ce ProDOS ne peut utilizer ce 

type de stockaoe. s 
HEX 00 

ASC "La fin du fichlcr a 6tS atteln 

Lit . - 
HEX CIO 

ASC "On ne peut aller flu deli de la 

tin du ficnier. " 
HEX 00 

AsC "Ler fiehicr ost. v«r jro-ui Ji e . 9 
HEX 00 

ASC "Le tlchier est xejt# ouvert." 
HEX 00 

ASC "Le catalogue est endomuyag&* " 
HEX 00 

ASC "Lf di ]fl n ' t jnja «n P mDDS _ 
HEX 00 

ASC "Un des partDr.etrtis de la taole 

est incorrect. " 
HEX 00 

ASC *Prf*OnG np pt*ut jjer«r «yij« hui t 

lecteurs 4 J« lei*, " 
HEX 00 

Asv "Le OUICer ne peut s'implanter 

& 1 1 endroi t desi Qne . H 
HEX 00 

ASC "Tl y a deux ncjitj de vol Nine ide 

rttl cues. " 
HEX 00 

ASC "La carte des JbJoes esc endoima 

g6e. " 
HEX 00 
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mers 



Christian Tiard 




T P objet du present programme est de 
repondre aux besoins de sauvegarde de 
volumes de tailles differentes. Avec 
MouseDesk, la copie de multiples fichiers 
ne pose pas de probleme mais avec le Filer de 
ProDOS, pas question de sauvegarder des dossiers ni 
de copier des volumes differents. 

La configuration 6tait la suivante : Apple //, une carte 
Speedisk 1 Mega, un lecteur 800 Ko. pas de souns et 
le probleme ctait dc saugardcr la carte RAM sur une 
disquette HUD Kn. Le programme Basic pr^sente* ici 
n'est qu'une utilisation du Copieur de F. Rosay listc 
dans ces pages : il se charge de rechercher dans le 
catalogue les dossiers et sous-dossiers quelle qu'en 
soit la profondeur puis fait appel a la commande 
externe COPY pour en assurer la sauvegarde. 

II dnnne accessoirement une facon de Techercher les 
fichiers dans les dossiers. 

Utilisation 

Le programme se lance simplement par : 

RUN COPIE. TF OU - COPIE.TF 

exclusivement sous FroDOS. 

II demande successivement les port et lecteur du 
volume original et du volume destination puis 
recherche les catalogues, les cree si necessaire sur le 
volume destination et enfin execute les copies. 

Si un fichier existe deja sur la copie, le programme 
affichc un message auquel on repond par : 



o le fichier sera efface" ec remplace, 
n la copie de ce fichier est annulec, 
s ce fichier et tous les eventuels suivants seront 
effaces et remplaces. 

Pour une question de rapidite", il est vivement 
conseille de reformater le volume destination avant 
copie... 



Remarques 



Ce petit programme pourrait etre adapte" pour faire des 
sauvegardes d'un volume 800 Ku sur plusieurs 140 
Ko par exemple (ici, le cycle de copie s'interrompt en 
ligne 4040 en cas de saturation du disque destination). 

La commande externe COPY gere elle-meme les 
erreurs et ne permet pas de les r6cup£rer par 
I'ONERR. Les POKEs de la ligne ont pour objet de 
detourner les erreurs vers le vecteur $BE09-$BE0B 
(Errout) de la page globale du Basic.System ; ainsi un 
'Duplicate File Name' est bien pris en charge par 
1'ONERR GOTO 4000. 

La ligne 100 prevoit 200 dossiers et sous-dossiers et 
500 fichiers par dossier au maximum : la modification 
des DIM devrait repondre a tons les besoins. 

La commande COPY ne gere. pas les numeros de port 
et de lecteur aussi, il convient de nommer 
differemment les volumes origine et destination. 



Programme COPIE.TF 

PRINT CHH$ (4) "BLQADCQPI": POKE 2578 

3,76: POKE 25784,3: POKE 25785, 101 : 
POKE 25860, 9: POKE 25861,190; CALL 2 
4576 

1 HOME : FOR I - TO 9 : READ E: POKE 7 

68 + I,Z: NEXT : DATA 104, 168, 104, 16 
6,223,154, 72,152, 72, 9 6 

2 ONERR GOTO 4000 
5 D$ - CHRS (4) 

20 PRINT D$ "PREFIX" ; JWPC7X AP$ 

100 AN = 0:NN = 0:NK = Q:DF = 0; DIM DI$ 



(200) ,FI${500) 
105 PR TOT "Origine": PR TNT " " 

110 VTAB 5: INPUT "Port : ";S$: ON s$ < 
"1" OR S$ > "7" GOTO 110:S = VAL (I 

S$> 

111 VTAB 6: INPUT "Lect : ";U$: ON 0$ < 
"1" OR D$ > "2" GOTO 111:D - VAL ( 

U$) 

112 PRINT D$"PREFIX, S"S",D"D: PRINT D$" 
PREFIX": INPUT OG$:OG$ - hEFT$ (OG$ 
, LEN (OG$} - 1) 

115 PRINT : PRINT : print "Destination" 
: PRINT " " 
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Exemple d'executlon 

Oiiyitie 



Port : 1 
Lect : 1 

Destination 

Port : 5 
Lect : 2 




ProDOS 



Copie de /SPDK vers /COFIE . SPDK 



Ok ? 



Recherche des catalogues. . . 

/SPDK 

/SPDK/MERL IN 
/SPDK/MERL IN /LIE 
/SPDK/ MERLIN/ UTlli 

Creation dss catalogues . . . 

/COPIE. SPDK/MERL IN 
/COPIE . SPDK/MERL IN /LIB 
/COPIE. SPDK/MERLIN/UTIL 

copie des fichiers 

Cople de : /SPDK/PRODOS 
> . /COPIE. SPDK/PRODOS 

Copie de : /SPDK/REBOOT . SYSTEM 
> i /COPIE. SPDK/ REBOOT. SYSTEM 

Copie de : /SPDK /BASIC .SYSTEM 
_ > . /COPIE. SPDK/ BASIC. SYSTEM 

Copie de : /SPDK/MERL IN/ MERL IN. SYS TEM 
> : /COPIE. SPDK/MERLIN/MERLIN. SYSTEM 

copie de : /spdk/merlin/lib/sendmsg. s 

—> : /COPIE . SPDK/MERLIN/LIB/SENDMSG. S 

Copie de : /SPDK/MERLIN/UTIL/XREF 
> . /COPIE. SPDK/MERLIN/VTTT./XRP.F 

Copie de : /SPDK/MERLIN/UTIL/XREFA 
> ; /COPIE . SPDK/MERLIN/UTIL/XREFA 



120 



121 



122 



125 



130 

140 

150 
15S 
156 
157 
160 

190 
200 
210 
220 
221 
222 
224 
226 
228 
230 
232 
234 



23 b 
238 
240 
250 

260 
270 
271 
272 
280 

290 
300 



310 
315 
320 
330 
335 
336 
337 



ON S$ 
= VAL 



ON U$ 
- VAL 



PRINT D$" 

LEFT$ (DE$ 

: PRINT "L 
. ."; WAIT 
PRINT DS"PR 



VTAB 13: INPUT "Port : ";S$. 

< "1" OR S$ > "7" GOTO 120:3 

'(Mm 

VTAB 14: input "Lect : ";U$. 

< "1" OR D$ > "2" GOTO 121 :D 
(U$> 

PRINT D$ "PREFIX, S "S ", D "D . 
PREFIX": INPUT DE$:DE$ = 
, LEN (DES) - 1) 

IF OG? - DE$ THEN PRINT 
cs volumes sont homonymes 
49152,128: POKE 49168,0 
EFIX"AP$: RUN 1 

PRINT : PRINT "Copie de "0G$" vers 
"DES 

PRINT : INPUT "Ok ? ";R$; IF R$ < 
> "0" AND R$ < > "a" THEN RUN 1 

PRINT : PRINT 

REM *************** 

REM * Recherche des catalogues 

REM *************** 

PRINT "Recherche des catalogues . . . " 

1 PRINT 
DI$ (0) = OG$ 
DT = 

FOR I — AN TO NN 
PA$ = DIS(I) 

PRINT PA$ 

P R TNT D$ "OPEN"PA$ ", TDIR 
PRINT D$"READ"PA$ 
F = 

INPUT A$ 

IF F AND NOT LEN (A$) THEN 238 
IF NOT LEN (A$) THEN F = 1 
IF MID$ (AS, 18 ,3) = "DIR" THEN DT 
= DT + 1:DI$ (NN * DT) = PA$ f "/" + 
MID$ (A$,2,15): GOSUB 300 
GOTO 228 
PRINT D$ "CLOSE 
NEXT 

IF DT THEN AN = NN + 1 :NN = NN f DT 
:DT - 0; GOTO 210 
NC = NN + DT 
REM *************** 
REM * Creation des catalogues 
REM *************** 

PRINT : PRINT "Creation des catalog 
lies. . . ": PRINT 
IF NOT NC GOTO 400 

FOR I = 1 TO NC:PA$ = DIS(I): FOR J 
= 2 TO LEN (PA$) : IF MID$ (PA$, J, 
1) = "/" THEN PA$ = MID$ (PA$,J + 1 
) 1 J = LEN (PAS) 
NEXT 

PR TNT nF.$"/"PA$ 

PRINT D$ "CREATE "DE$ "/ "PA$ " r TDIR 
NEXT 

REM *************** 

REM * Copie des fichiers 
Rem *************** 
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340 PRINT : print "Cople des fichiers" : 

PRINT 
400 FOR T — TO NC 
405 Nl = 

410 PRINT D$"OPEN"DI$ (I) " f TDIR": PRINT 

D$"READ"DI$(I) 
420 F = 

425 INPUT A$: INPUT A$ 

430 REM 

431 INPUT A$: IF F AND NOT LEN (A$) T 
HEN 500 

440 IF NOT LEN (A?) THEN F = 1: GOTO 
430 

450 IF MID$ (A$,18,3) = "DIR " THEN 430 
455 Fl$ = UI$(I) + "/" + MID$ (A$,2,15) 
460 Nl - Nl + 1:FI$ <N1) - Fl$ 
470 GOTO 436 

500 PRINT D$ "CLOSE 

501 IF NOT Nl THEN 510 

502 FOR K = 1 TO N1:F1$ = FI$(K):F2$ = 
DE$ + RIGHTS (Fl$, LEN (Fl$) - LEN 

(0C$) ) 

503 PRINT : PRINT "Copie de i "Fl$ 

504 PRINT D$"COPY"Fl$" f "F2$: PRINT " 

> : "F2$ 

505 NEXT K 

509 FOR K = TO 38: PRINT "-";: NEXT : 
PRINT 

510 NEXT I 

997 PRINT D$ "PREFIX "APS 
999 END 



1 Q $ Q REM *************** 

3000 U$ = DI$ (NN + DT) :U = LEN (U$) : FO 
R J = 1 TO U: IF MTD$ (U$,J,1) = " 
" THEN DIS (NN + DT) = LEFTS (U$, J - 
If :J - U 

3010 NEXT : RETURN 

4000 CALL 768: REM Bug de 1'OnErr 

4010 LI - peek (218) + 256 * Peek (219 

J :ER = PEEK (222) 
4020 IF ER =19 AND LI - 320 THEN GOTO 
330 

4030 IF NOT (IlR = 71 AND LI = 504) THE 
N 4035 

4031 ON DF GOTO 4034: PRINT SPC ( 11)F2 
$" existe dej&": PRINT "Remplcmt : O 
/N Rcntplaaer tons : S 

4032 WAIT 49152,128: POKE 49168,0 :RR = 
PEEK (49152) : IF RR = ASC ("N") OR 
RR - ASC ("n") THEN PRINT "Copie 

annulee": PRINT : GOTO 505 

4033 IF RR = ASC ("S") OR RR - ASC (" 
S") THEN DF = 1 

4034 ON RR < > ASC ("0") AND RR < > 
ASC ("o") AND NOT DF GOTO 4032: PR 

INT D$"UNLOCK"F2$: PRINT D$"nP.T.FTF."F 
2$; PRINT "Effacsmt : "F2S: RESUME 

4035 PRINT : PRINT CHR$ (7) 

40 40 IF NOT ER THEN PRINT "Disque des 
tination plein": end 

4099 PRINT D$ "PREFIX"AP$ 

4100 PRINT "Erreur n° "ER" ligne "LI 




Editeur Plein Ecran 

Le Pacha 

DOS 3,3 - ProDOS ™ - 

• Listez vos programmes Basic en avant et en arriere. 

• Modifiez, inserez, effacez des caracteres en plein ecran 
sans retire les iignes. 

• Recherchez toute chaine de caracteres. 

• Choisissez vous-meme les codes de controle d'EPE. 

• Modifiez EPE : le fichier source est sur la disquette. 



200,00 F TTC franco 
(bon de commande page 74) 
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js^M^ vec nn Apple //, il est 

m m P 0SS iW e de geier dcs 
if |f gros fichiers de 
M^^pL^ donnees et, pour que 
H^^iP^ | e temps d'acces aux 
articles reste acceptable, il est 
d'usagc d'organiscr lc fichicr en 
fichier 'sequential index6', 
comportant une table d'index 
associant h. la "c!6" de chaque 
article son numero dans le fichier. 

A partir de quelques centaines 
d'articlcs, la tabic nc tiendrait 
plus entiere en memoire et serait, 
sur disque, tiop longue a 
explorer, II faut alors la remplacer 
par un systeme de tables 
multiples, dont la gestion est a 
inclure dans le programme. 

Nous vous proposons ici une 
"UNIT" assuraril la gestion d'un 
systeme de tables a deux niveaux. 



Les programmes 

Vous dispose; de la disquette 
d'accompagnement 800 Ko : 

Les fichiers ont ete transferes en 
ProDOS grace a Universal File 
Conversion (UFC). C'est ce 
programme que vous utiliserez pour 
les repasser sous Pascal 

Vous disposez de la disquette 
d'accompagnement 140 Ko: 

Deux possibilites s 

Sur la face ProDOS, il vous faudra 
utilise r UFC comme sur la disquette 
800 Ko. 

Les fichiers sont egalement en 
format DOS 3.3 sur i'autre face : 
utiliser le programme 
BASIC-PASCAL \IM sur ia 
disquette pour repasser les fichiers 
sous Pascal. 



Vous pourrez 1'utiliser, grace au 
linker, avec le programme dc 
gestion de fichier que vous 
ecrhez selon vos besoins, en 
partant du modele presente. Les 
performances sunt les suivantes ; 
pour un fichier de 450 articles, 
^extraction dun d'entre eux par 
sa cle demands environ une 
seconde. Le tri alphabetique 
demande aussi environ une 
seconde par article. En outre, le 
fichier n'a pas a etre purge pour 
recuperer la place des articles 
supprimes. 

La demonstration 

Le programme. 'REPERTOIRE' 
gere un fichier d'adresses d'une 
capacite" de 450 articles. La cle de 
chaque article comprend le nom et 
le prenom concatenes, puis 
tronques a 15 caracteres, 

Vous entrez d'abord le nom du 
fichier, par exemple "ADRES- 
SES". En cas d'absence sur le 
disque, il y a creation du fichier 
de donnees ADRES SES. DATA 
et du fichier de. tables 
ADRESSES.TABL (attention a la 
place disponible), Vous pouvez 
ensuite ajouter des articles, les 
rcchcrchcr un par un par le debut 
de leur cle (pour eventuellement 
les modifier ou les supprimcr), 
ou encore les lister par ordre 
alphabeuque de cle" a panir d'une 
origine quelconque. 



Le fonctionnement 

Les fonctions principales du 
programme P.REPERT sont 
assurees par les procedures 
AJOUTER, RECHERCHER et 
LISTER. Celles-ci font appel a 
des procedures de I 'unite link 
U.GESTABL : 

■ CLASSER range dans les 
tables la cle et le numero d'un 
article , 

* DECLASSER supprirne une 
eld des tables et les reorganise ; 

• REPERER et DECOUVRIR 
cherchent dans les tables le 
numero d'articlc associe a une 
cle donnee (respectivement 
dans I'ordre descendant ou 
ascendant) ; 

■ LOCALISER cherchc la 
position d'une cle dans les 
tables. 



Structure des tables 

Les tables sont composers 
d'clemcnts associant une cle et un 
index. Chaque table a une 
capacite de DIM elements (plus 
un element de rang qui contient 
le nombre d'elements presents). 
Le fichier comprend une table 
prirnaire, de numero 0, et DIM 
tables sccondaires, Les tables 
secondares enmprennent les elds 
de tous les articles, associecs aux 
numeros d'article. 



Exemple de tables pour DIM=4 



Fi 




Flehier INDEX 









1 61 




1 


2 


3 


1 


1 ANDRE, ... I 





1 ,3| ALA, 1 


( JEA, 3 


IREW,2 1 , 


2 


1 JULES, ... | 


I 


1 ,3 1 ALA, 4 


\ AND , 1 


1 DAV, 3 | , 


3 


1 DAVID, ... | 


a 


1 ,1 IREN,5 




J ,_l - 


4 


1 ALAIN, ... I 




I ,2 IJLA, 6 


1 JUL, 2 


1 , 1 , 


5 


1 RENE .... | 


4 


1 ,0 I 


! 


1,1, 


6 


1 JEAN .... I 
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La table prim aire conuent les cle"s 
de tete des tables secondares, 
associe'es aux nume'ios de table. 



Procedures de I'UNIT 

Chacune des cinq procedures 
cherche d'abord dans la table le 
numero de la table secondaiie 
concernee. Dans l'exernple repe>e 
en italique. pour DECOUVRIR, 
lc numero d'article deTini par la 
eJ6 JUL, la tahle aiguille sur la 
table 3 (car JEA<=JUL<REN"), et 
celle-ci indique le numero 2 de 
I' article. 

La procedure CLASSER 
fonctionne de facon a maintenir 
vide la derniere position de 
chaque table secondairc. Si, aprcs 
insertion de I'element (cle, 
numero), cette table contient DIM 
elements, elle est degonfl.ee par 
transfert de son dernier element : 

• soit dans la table de rang 
suivant si celle-ci contient 
moinsde DIM-l elements ; 

• sinon dans une nouvelle table, 
dont la cle* est inseree a son 
tour dans la table 0. 

Procedures du 
programme 

Elles fonctionnent comme suit : 

• MODIFIER : si la nouvelle cle 



differe de l'ancienne, celle-ci 
est d^classee, puis la nouvelle 
est clusscs " 

• SUPPRIMER : 1'ancicnnc eld 
est d£classee, puis nne cle vide 
(chains ") est classee, associee 
au meme numero d'article. Les 
articles supprime's peuvent fitre 
reperes par leurs cl£s vides en 
tete des tables ; 

• AJOUTER : si les tables 
component des cles vides en 
tete, le dernier des articles 
vides est extrait, puis modifie 
par substitution des nouvelles 
donnees a l'ancien contenu 
vide. Sinon, un nouvel article 
est cre'e' et sa cle est classed 
dans les tables. 

Ainsi, les emplacements des 
articles supprimcs sont rcutiliscs 
automatiquement, et le fichier n'a 
pas a cue purge. 

Saturation 

Au remplissage, les tables se 
saturent, dans le cas le moins 
favorable, avec alternativement 
une table k 1 element et une table 
a DIM-l elements. Pour cvitcr la 
saturation, le nombre d'articles 
est plafonne a DIM*(DIM DIV 
2). Ainsi, dans P.REPERT, 
DIM=30 et le plafond est a 450 
articles, 

Mais, en supprimant ou en 
madifiant des articles, certaines 



tables peuvent se de"garnir. Pour 
eviter une saturation prematuree, 
les procedures suivantes 
interviennent si necessaire : 

* TASSER qui reunit deux tables 
de rang consecutif dont 
reffectif total est inferieur a 
DIM; 

• COMPRIMER renumerote les 
tables en supprimant les tables 
vides. 

Creation d'un 

nouveau 

programme 

Ajustez d'abord, si necessaire et 
en tete de U.GESTAB L.TEXT, 
la valeur de DIM d'apres la taille 
de votre fichier de donnees, ainsi 
que le nombre de caracteres de la 
cle, puis compilez cette unite". 

Eerivez ensuite votre programme 
de gestion de fichier, de 
preference a partir de 
P.REPERT. TEXT, en evitant de 
modifier la mise en ceuvre des 
procedures de gestion de tables 
dans AJOUTER, RECIIER- 
CHER et LISTER. Apres l'avoir 
compile, il ne vous reste plus 
qua assembler avec le linker le 
code de l'unite dans celui du 
programme, puis a executer le 
code resultant, 

a 



Programme 

U.GESTABL' 

Note : le caractere '/ indique la continuity de la ilgne 
(*$$+*) 

UNIT ScquinjSestablez; 
INTERFACE 

const Dlm=30; ("a ajuster selon taille lichier*) 
TYPE T_c]*-STRTNC[15} (*a ajustei*) ; 
T altnii=RECOHD 

Cle:T_cle; 
Index ; INTEGER; 
END; 

T_tabla=ARnAY[0. .Dim] OF T_elent; 
VAR Fttab'.FlLE OF T taJole; 

Numero, Num_2, Rangi INTEGER; 

Tablet, TableZ: T_cable; 
PROCEDURE Classer (Libel le:T cle; Numem: TNTEGF.P) • 
PROCEDURE Declasser (Libel le : r_cJ s) ; 
PROCEDURE Reperer (Donnee j T_cl e) ; 



PROCED URE Decouvrlr (Donnee: T_cle) ; 

PROCEDURE l,tiiza I i sr.r (Donnem : T r.Jf'jVAH Bang) , Rang? - 
INTEGER} i 

IMFLEMEtfTA TION 

PROCEDURE Si tvor (Libol 1 o : T el c/ Table: ratable; vf 
AR Rang: INTEGER) ; 
BEGIN 

Rang:-1; 

WHTTS. (I.ihml 1it>-T»bJ m [R*ng] .C)a) Am (Rang<vj 
diile (0) , Index) 

DO Rang:=Rang+l; 
IF (Libelle>=Table [Rang] .Cle) AND !Rang~Tablf 
e[0] . Index) 

THEN Ranq:=Ranq+lt 
Rang:=Rang-l; 
END; 

PROCEDURE Inserer (Element tT elem; VAft Table: T_taJ 
ble) ; 

VAR Indies, Rang: INTEGER: 
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BEGIN 

Situer (Element. Cls, Tabl e, Ranq) ; 

FOR Indiee:~Table[0} . Index DOftNTO (Rang+1) DO 
Table {Indice-H} :=Table [Indice}; 
Table [Rang-hl] -.^Element; 
Table [0} - Index ;~Table [ 0} . Iudex+1; 
END; 

PROCEDURE Comprlmer; 

(*Supprime les tables vides*) 
VAR I,Nombrc, Trou, Rang : INTECER; 
BEGIN 

Trou: = 0; Nombre:=Tablal ( 0] . Index; 
FOR I.i-;=2 TO Nombre DO 

IF Tablel [1} .Cle='?' THEN Trou:=Trou+l 
ELSE Table! [I -Trou) :-TablBl (I); 
Tablel [01 . Index:=Tablel [01 . Index-Trou; 

FOR I:=l TO Nombre DO BEGIN 
SEEK (Fi tab, I) ;CET (Fi tab) j 
IF Fitab" [0] . Index^O THEN Trou:=Tzou+L 

ELSE BEGIN 

SEEK (Fi t ab, I'Trou) ;PUT (Fi tab) ; 
Ranrj:=l; 

WHILE (Tablel [Ranq] . Indexol) AND (Ran} 
g<Nombre) 

DO Rang:-Rang-H; 
Tablel [Rang} . Index :=I-Trou; 
Tablel [Rang} . Cle: =Fi tab" [1 } . Cle; 
END; 

END; 
END; 

PROCEDURE Tasser; 

i*Reunit 2 Tables peu pleines et corajjrime*) 
VAS 1, Indi <sc. Nombre, NumA, NumB : INTEGER; 
TableA, TableB: Ttable; 

BEGIN 

l:=l; 

UH1LE I (Tablel [0] . Index DO 
BEGIN 

Nvm_A : =Ta blel [I] . Index; 

SEEK (Fitab, Num_A) ; GET (Fi Lab) ; Tabl kA .- =Fi Lab} 

Num_D: -Tablel [III], Index; 

SEEK (Fltab, NumB) ;GET (Fitab) ; TableB} 
: -Fi tab"; 

NombXe:=TableA[Qj . Index+TableB[0} . Index; 

IF Notttbre<rDim THEN 

BEGIN 

FOP Indlce:=l TO TableB[0) . Index DO 

TableA(TableA(0} . Xntfex+IndiceJ -.-Tables} 
[Indice} ; 

Tabl cB[0] , IndcxfO; TablcA[0] . Index : =Womb/ 
re; 

Tablel[I+l} .Cle:-'?'; 

SEEK (Fi tab, Num_A ); Fitab" : "Tabl eA;FUT (Fi tf 
ab) ; 

SEEK (Fitab, Num_B); Flta £>":= Tab 1 eB;PUT (Fit/ 
ab); 
I:-Ill; 
END; 
Ii-I+l; 
END; 

Comprimer: 
END; 

PROCEDURE Classei ("Libelle:T cle; Numero: INTEGER'} 



Clnsere dans les tables la cle et ie numero d} 
'un article*) 
VAR Rang, Nam 2 1 1NTECER; El cmcn t : T el cm; 

PROCEDURE Dcgonflcr ( Ranq_A: INTEGER; VAR Tableof 
, TableA :T table); 

(*Baporte dans une autre taJbie le dernier el} 
em. d'une table plelne*) 
VAR TahleR;T_tahle; Element : T_ el em; 

Rauy B, Nubi B : INTEGER; 
BEGIN 

Ranq_B:=RanqAH/ 
Num_3 : =Tabl sO [Ranq_B I . Index; 
SEEK (Fitab, Num B) ; GET (Fitab) ; 
TableB: =Fitab"; 

Inserer (TableA [Dim] , TableB): 

TableAfQ] . Index :-olm-l; 

IF (TableB[0] .Index=Dim) OR (Rang_A=Tahl et)} 
[0] . Index) 

{ 'TableB pleine ou Table} 
A en queue dflfi-? Tablet}*) 

THEN 
BEGIN 

Num_B:=TableO[01 .Index+1; 
Tabl eB [ j . Index : -C / 
Itisetec (TableA {Dim} , TableB) ; 
Element .Cle: =7ableB [11 .Cle; 
El cment . Index: -Num^B; 
Insersr (Element, Tabled); 
END 
ELSE 

TableO [Rang_B] . Cla:=Tabl6B[l } . Cle; 
SEEK (Fitab, Num B) ; Fitab" :=VableB; 
PUT (Fitab) ; 
END; 

BEGIN (*Cla3ser*i 

Si tuei (Libelle, Tablel, Ranq) ; 
IF Rang~0 THEN Ranq:-1; 
Nvm_2:=Tablel [Rang} . Ind&x; 

SEEKtFitah,Nuia_2},- CET(Fitab); 
Table2:=Fltab"j 
Element. Cle:=Libelle; 
El ement . Index :—Nuiuei o; 
Inserer (Element, Tabl e2) ; 

IF Tablel { 9} .Index=0 THEN Tablel [0} . Index: 

Tablel [Hanq] .Cle: =Tabl e2[l}. CI e; 

IF Table2[0) .Index-Dim THEN Deqonflcr (Rang, t} 
ablel, Tabl el J ; 

SEEK (Fitab, Num_2) ; Fitab" :=Table2.- PUT (Fitab} 
If 

IF Tablel (01 . Index^Dim THEN Tasser; 
SEEK (Fitab, 0) ; FILab" : ^Tablel; FUT(Fltab) ; 
END; 

PROCEDURE DeclasserCLibelle:T_cle*) ; 
('Retire un clement de la Table2") 
VAR Indice, Sanq2: INTEGER; 
RFGTN 

Rang2;=Table2[Q] . index; 

WHILE Libelle<>Table?[Ranq?} . Cl} 
e DO Ra:iy2;=Rdnq2-l; 
Table2[0} . Index: =Tabl e2[01. Index-1: 
FOR Indice; -Rang2 TO Table2 [ Q] . Index DO 

Tabl e2 [Indi ce/ :=Tabl e2 [Indice+l } ; 
Tablel [Rang] . Cle:=Table2 [1 } . Cle; 
Fltab" :=Ta01e2i 

SF.EK [Fi tah, N»m_2) ; PUT (Fitab) f 




-1; 
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TF T*hlc?[").Index=Q THEN BEGIN 
Tablel[Rang] .cle:='?'; 
Compri mer; END; 

END; 

PROCEDURE Sepercr ( *Donneo : Tel C); 

('Repere tin article d'apres sa cle*) 

var Ranqi : INTEGER; 
BEGIN 

Si turn (Dun nee, Tablel , Rang) ; 
Nuis_2:=Tablel IRanq} . Index; 
SEBK(Fitah,Num_2); GET (Fitab) ; 

Table2:=Fitab"; 

RangZ •■ -Fi tob* (01 . Index; 

WHILE (Donnee<>Fitab*[Rai)g21 .Cle) AND (Rang?! 
>0) 

DO Ranq2:-Rang2-1; 
Numero:=Fitab* [Rang2] . Index; 
IF Reng2-0 THEN Numcco; -0, 
END; 

PROCEDURE Decouvrlrt *Donnee: T_c2e*J ; 
VAR Ranq2: INTEGER; 
BEGIN 

Si tiler (Donnee, Tsblel , Rang} ; 

IF (Rang<Tablel [0] .Index) AND {POS (Donnee, Taf 
bleltRang-H! .Clel^li 
THEN Rang: -Rang+1; 



Programme 
'P.REPERT 

Note : le caraclera '/' indique la continuity de la lignet 

PROGRAM Repertoire; 
fflchier sequentiel indexe*) 
USES APPLESTUFF, 

(*$(/ tS:U. GESTABL . CODE *) Sequinge stables; 
TYPE Stri ng20=S TRTNG{20] j 

SLzing5=sTRING(5} ; 
VAR Fi ch : FILE OF RECORD CASE INTEGER OF 
.- fCei ar ti c2 e i INTEGER) ; 

1 : {Nam, Prenom, Adressel , Adresse2 , Ville,/ 
Telephone :Stri ng20; 

Code postal : Strings) ; 

END; 

Fin, Pla£ond: IN tEGBR; 

Cle_l :T_f?lt>; 

Cholx ; CHAR; Srreur : BOOLEAN; 

PROCEDURE Synthese (Nom, Prenom:String2Q; VAR RacaouJ 
rci:T_cle); 

(*Cre& la cle avec nam et prenom*} 

VAR Nom_prenom; STRING [41]; 

BEGIN 

Nom_prenom: =cvncat (Norn, Prenom) ; 

TF T.FHGTH (Nom_prenom) >3 5 THEN Raecourei i =COPyJ 
(Nomprenom, 1,15) 
ELSE Rsccourci : -Nom_prenom; 

END; 

PROCEDURE Initfichlart 
TYPE T_ n onr^STRI NG\23j ; 
VAR T»at ; CHAR; 

Nom lichier, Nom table it nom; 



IF Rang=0 THEN Ranq:=l; 
Num 2: —Tablel (Rang) .Index; 
SEEK ( fi t ab, NUw_2) } GET (tl t ab) ; 
Tabl e2 : =Fi tab*-; 

Rang?;=l; 

WHIM IPOS (Donnee, Fitab* !Rang2] . TJeJ <>t) AMD 
(Rang2<Fitab* [0] . Index) DO Rang2:=Rang2+l; 
Numero:=Fitab* [Rang2] . Index; 

IF BQS (Donate, Fitah" {R=e>g2] .Cle)<>l THEN NunJ 
era: =0; 
END; 

PROCEDURE Locali ser ("Donnee: T_el e; VAR Rangl, RangJ 
2: INTEGER") ; 
RF.GIN 

Si Luei (Dunnee, Tahl el , Rangl) f IF Rattgl = THEN f 

Rangl :ml: 

Num_^2 : —Table! [Rangl } . Index; 
SEEK (Fi tab, Num 2) ; GET (Fitab) ; 
R*flg2;~l; 

WHILE (Donnee>Fitab* [Rang2] .Cle) AND (Rang2<J 
=Fitab*(0} . TndPx) 
DO Rang2:=Rang2+l; 
IF Rang2>Fl tab' [0] . Index THEN BEGIN Rang2:=lf 
; Rangl : -Rangl tl ; END; 
END; 

BEGIN 

Num ert> tmOf Num_ 2 : =0; Rang: -0; 
END. 



PROCEDURE Nununer (VAR Fishier, Table: T nom) ; 
VAR Nom, Valume:STRING!lQ\;Lectevr:CHAR; 
BEGIN 

WRITE ( 'nom du fichier (max. 10 caracteres) : '[ 
)t 

READLN (Nom) ; 

WRITE ( 'lecteur 1 Oil 2 ? ') ; READ (Lect eur) ; WRlf 
TELN; 

STR (ORD (Lecteur) -45, Vol ume) ; 

Flchisr : -CONCAT { Volume, ':',Noii>, '.DATA'); 
Table : =CONCAT (' t' , Vol ime, »: ',Nom, ' . TABL ' ) ; 

ENDj 

PROCEDURE Cxoer; 

VAR Nombre : INTEGER; Reponse : STRING [ 5]; 
BEGIN 

WRITE (' taper CRBER puui ^orufiivuer ; 'J; 

READLN (Reponsel ; 

IF Rsponse=' CREEP' THEN 

BEGIN 

REWPI TE (Fi ch, Nom_ fi chi erj t 
Fich".Der article :=0; PUT(Fich) ; 
WRITE ( w reserve r comb inn de ficht>s ?' ) ; REAj 
ULN (Nombre) ; 
Fi ch* , D&r^artiel e:^l ; 
FOR Numeral! TO Nombre DO PUT(Fitfi); 
CLOSE (Fich, LOCK) ; REWRITE (Fitab. Nom_table) ; 
Fitab* (0] .Index: -0; Fitab* [0} . Cle:-' '; 
FOR Numero;=l TO Dim DO 
BEGIN 

Fitab* [Numero) . Index;=l; 
Fitab' (Numeco) .Cle: = ' '; 
END; 

FOR Nuneroi-O TO Dim DO PUT (Fitab) ; 
CLOSE <Fi tab, LOCK) ; 
END; 
end; 
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BEGIN ('Initfi ohicr') 
Erreur: -FALSE; 

REPEAT 

Nommer (Nomfichier, Wo/he aisled ; 
(*$!-*} 

CLOSE tESi-hl i RESET (Fioh, Nomfiehier) ; 
(*$!**) 

IF IORESULT-0 THEN Te^t.'-'O' 
ELSE BEGIN 

WRITELHf 'fichior introuvable - voul •2-i'ous/ 

! •>; 

WRITELNC- le C.Tep.r'); 

WRITELNC- MudiFler son nomf 

'); 

READ (Test) ; WRITELN; 

IF Test = 'C THEN Creer; 

END,- 

UNTIL TestO'M'; 

CL OSS (Fi Cfi) ; RESET (Fich, Nom_ tlchler); 
(*$!+*) 

IF IORESULTOQ 
THEN BEGIN 

WRITELN ( ' traitement impossible ' ) ; 

READ (Choix); 

Eeraur : —TRUE; END 
ELSE BEGIN 

Fi n : =Fi ch A .Der_srticI e< 

CLOSE (FiLab) ; RESET (Fi tab, Nonstable) ; 

Table.} :=Fitah"; 
END; 

END; 



PROCEDURE Masque; 
BEGIN 

PAGE (OUTPUT) ; 

WRITELNC fiche indi viduel ?(= n[ ' .Numero) ; 
WR 1 TELN ( ' ================ ' ) ; 

GOTOxy (0 r 4) ; WRT TFJ.N ( 'nom' ) : WRITE I 'prenom ' } ; 
GOTOXY ( 0, 7) ; WRITE (' adi eise ' / ; 
GOTOXY (0,10) : WRITE (' code, ville ') ; 
GOTOXY (0, 2 2) ; WRITELN ( 'telephone ') ; 
END; 

PROCEDURE Salsin 

VAR Rcponse; CHAR ; Chains: Stir ing20; 

PROCEDURE !, i n> (X. T, L : INTEGER; VAR Champ : St ri n q2 ); 
VAR Donnee: STRING (21} ; 
BEGIN 

GOTOXY ( X +L, Y J ,■ tlRI TE ( ' < ' ) ; 
GOTOXY (X, Y) ; READLN (Donnee) ; 

IF LENGTH (Donneei >L THEN Donnee :=COPY (Danneef 
,1.L); 

IF DonneeO ' ' THEN Chai«pt=DonnFir>; 

GOTOXY (X, Y) ; WRITE (Champ, CHR (29)} 
) • (*f>ffacement [in de ligne*} 

END; 

BEGIN (*Salsir'-) 
REPEAT 

Li re (1 4, 4,20, Fich" , Nont) ; 
Lire (14, 5, 20, Fich" .Prenom) ; 
Lire(14, 7, 20,Flch" .hdressel ) ; 
Li re 114, 8, 20, Fich'-. Adresse2) ; 
Chai nm 1 -Fich * . Codapostitl; 

Llrs (14, 10, 5, Chains) ;Fich" .Codepostal :=Chaif 
us; 



GOTOXY (20, 10) ; WRITE (Fich*-. Ville) ; 
Lire (20,10, 20, Fich" .Ville) ; 
Lire 114, 12, 20 r Fich", Telephone); 
GOT0XY<14,16);WRITE('g^<J':d (0/N) ? '); 
READ IReponse) ; WRITELN; 
UNTIL Reponae-'O'j 
END; 

PROCEDURE Alticher; 
BEGIN 

GOTOXY 114, 4! ;WRITE(Fich* . Num) ; 
GOTOXY 114,5) ; WRITE (Fich". Prenom) ; 
GOTOXY (14, 7) ; WRITE (Fich" .AdmsJiel ) f 
GOTOXY (14. 8) ; WRITE (Fi eh * . AdresseS } f 
GOTOXY (1 4, I 0) ; WRITE [Fi eh' . Codc postal ) / 
GOTOXY (20, 1 0) ; WRITE (Fich" . Ville) ; 
GOTOXY (1 4, 12) j WRITE (Fich' . Ts7 p.phanfj ; 
WKITELN; 
END; 

PROCEDURE Effacer; 
BEGIN 

Fich".Nom;-' '; 

Fich" .Prenoir,:= ' '} 

Fich", Adresse 1:-' '; 

Fich" .Adresse2:=' '; 

Fich" .Code postaJ : = ' 

Fich'. Ville:=' '; 

Fich" . Telephones ' '; 
END; 

PROCEDURE Ajouter; 
('A ioute une oouvelle flchs*) 
VAR Choi xl <• CHAR; Sa t ure i BOOLEAN; 

PROCEDURE Avto; 

fCree line flche aleacolre, pour essai*) 
VAR Chaine:Strin&20; 

PROCEDURE Ales (Longueur : INTEGER; VAR Chaine;Stf 
rino[20) ; 

(*Cree un& chaine aleatoire*) 

VAR I, L ! INTEGER; 

BEGIN 

Chsine:= ' 

L:=RANDOM MOD Longveuz+1; 

FOR r:=3 TO L DO Chainell] :=CHR (RANDOM MOf 
D 26+65); 

Chaine:=COPY (Chaine,l,L) s 
END; 

BEGIN (*Aut°*> 

RANDOMIZE; 

Alea (20, Fich" -Not*) ; 

Ales (20, Fich". Prenom) ; 

Al ea (20, Fich"- Ad r&sss> I ) : 

Alea (20, Fich" .Adreise?J ; 

Al&a (20, Fich". Ville); 

Alva (20, Fich", Telephone) ; 

Alea (5,Chaine) ; Fich" .Code postal :=Chaine; 

Aff ichor; 
END; 

BEGIN ('Ajouter') 

IF (Fin<Plaff>nd) OR (Tablel [ I ] . Cle- ' ' ) THEN SatJ 

ure : =FALSE 

ELSE Sature:=TRUE; 

cholxl := 'o' ; 

wmi£ (Cholxl-'O') AND (Sature=FAL£E) DO 
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BEGIN 

IF Tablel[l) .Cle=" (*sl das fiches cnt ete J 
ettacees*) 

THEN BEGIN R eper er f " ) ,- Dec 1 a ssn r ( " ) ; KND 
ELSE BEGIN Fin:=Fln+l; Numero; -Fin;END; 
Ef facer; 

IF Choix='a' THEN Auto (*pour essai *! 
) ELSE 
Saisir; 

SEEK (Fi ch, Numero) .-PUT (Fich) ; 

Synzhese (Fi ch" , Nom,Fi ch" . Prenom, Cle l) ; 

SEEK (Fich, 0); Fich" . Der_article:=Fin; PUT (Fif 

ch)i 

Cl asserfCl e_l , Numero) ; 

IF (Fi n -iPl a fond) OR (Tab! d (1J ■ OAs-' ' } THEN } 
Sature:=FALSE 

ELSE Satui-O' =TRVE; 
IF Sacure THEN WRITELN! ' tlchler sature') 
ELSE BEGIN 

GOTOXY (14, IS) ;WRITECfiche suivante (0/n/ 
} ?'); 

READ(Choixl); WRITELN; 
END; 

END; 
END; 

PROCEDURE Rechercher: 

(*Recherahe un article d'apres sa cle*) 
VAR Choixjf: CHAR; Norn, Prenom; Strinq2Q; 

PROCEDURE Modifier; 

(*Modi£ie uei article*} 
VAR Cle_2:T_cle; 
BEGIN 

GOTOXY (14,18); WRITE (CHE (23) ) ; (*ef£ace liysiaf 
*) 

Synthase (Fich' • Norn, Fich" .Prenom, Clel) f 
Saisir; 

Synthese (Fi ch* . Nam, Fi ch " . Prenom, Clc_2) ; 
IF Cle_2<>Cle_l THEN BEGIN 

Dccldsfssr (CI el); 

Classer (CIe_2, Numero) ; 
END; 

SEEK {Fi ch, Numero) ; PUT (FI ch ) ; 
END; 

PROCEDURE Supprimer; 

(*Suppriist& un article*} 
VAR Reponse:CHAR; 
BEGIN 

WRITE t 'taper X pour contlrmer : '// 
,-READ (R»ponse) ;WPITF.LN; 

IF Reponse^'X' then 

BEGIN 

Synthese (Fich' . Nom, Fich '.Finn urn, Cle_I) ; 
fleelaispr (Cle l) ; 
CI sssBi (' ' , Nuutero) ; 
Ef facer; 

SEEK (Fi ch. Numeral jPUT (Fi ch) / 
END; 

END; 

BEGIN <*R»ch*rcher*) 
Lhoix:='0' ; 
WHTIF! Choix^'O' DO 
BEGIN 

PAGE (OUTPUT) ;ChoixM: = 'N',- 
WRITE ('now ? ') ; READLN (Nom) ; 



WRITE ( 'prenom ? ' i ; READLN (Prenom) ; 
Synthase (Nom, Prsnom, Cle 1) ; 
oecouvrir id el); 

IF Numnm=n THEN WR I TEL NC nam inconnu') 
ELSE BEGIN 

SEEK (Fich, Numero) ; GET (Fich); 
Masque; Af fisher; 
GOTOXY (14,1 8); 

WRITE ( 'voulez-vous Modifier ou Supprimej 
r cette tiche ? ' ) ; 
HEAD (ChoixM) jWRITELN; 
if cholxM-'M' THEN Modifier; 
IF ChoixM='S' THEN Supprimer; 
END; 

GOTOXY (14.20); WRITE ( 'autre fiche (0/N)?'); 
READ (Choix) ; WRITELN; 
END; 
END: 

PROCEDURE Lister; 

VAR II, 12: INTEGER; Choix: CHAR; Debut; Tele; 
BEGIN 

WRITE ( 'debut de la lisCe ? •) ,-READLN (Debut) ; 
IF Debut^' • THEN Debut :='!'; ( 'pour eviter de if 
ister les fiches effacees*) 

Localizer (Debut, II, 12}; 
PAGE (OUTPUT) ; 

NRITELN ( 'pour diteter, taper sur une fleche'); 
URITELN { ' pour quitter, taper Q'); URITELN; 
WP.2TE ( 'numero nom '/ 

It 

WRITELN ( 'prenom ville'); 

WRITELN; 

Chcix: = ' '; 

WHILE (II <-T&blcl (0! . index) AND (Cholxo'O') DO 
REGTN 

Nusn_2: = Tdhl el [11 j . Index; 

SEEK (Fi tab, Num_2) ; GET (Fitsb) i Table2:-Fitabf 

Wujne ro ; =Tabl e2 [ 12) . Index; 

SEEK(Pich, Numeroj ; CET (Fich) ; 

WRITE (Nvmero : 4 , ' ', Fich" .Nom: 20, ' '); 

WRITELN (Flcrh" .Prcnnn.' 70, ■ Fi ch" . Vi lie : 20) ; 

IF KEYPRESS THEN BEGIN READ (Choix); READ (CI J 

nix) ; END; 

I 2:~1 2+1; 

IF I2>Table2[0J .Index THEN BEGIN I2:=l; 11:=/ 
Il+I,- END; 
END; 
END; 

BEGIN (*debut du programme*) 
Plafond: -Dim' (Dim D1V 2); 
PAGE (OUTPUT) t 
Initfichier; 

IF Erreur-FALSE THEN REPEAT 
WRITELN; 

URITELN CChoisissez: Ajouter tine fiche, RecherJ 

izher. Lister, Quitter :'); 

WRITELN {' (ou ajouL al eaLoii e) ' ) ; 

READ (Choix); WRITELN; 

CASE Choix OF 

'&','&': Ajouterv f"i'; pour essai*) 

'L': Lister; 
'R ' : Rechercher; 
END; 

UNTIL Choix='Q'; 
CLOSE (Fi ch) ; CLOSE (Fitab) ; 
END. 
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afale de nouveautes 
chez Apple, Riles 
nnt ete devoilees en 
aout et feront leurs 
debuts europeens a l'Apple 
Expo. 

La premiere tie ces innovations 
est baptisee HyperCard, apr£s 
avoir ete connue sous le noni de 
code Wildcard. Que les lecteure 
anglophones ne se laissent 
toutefois pas abuser par cette 
designation : il ne s'agit pas 
d'une carte d'extension, mais bel 
et bien d'un programme. Le plus 
difficile est d'expliquer exacte- 
ment a quoi il sert. Chez Apple, 
on le decrit seulement comme un 
'hypermedia' ou langage de 
navigation sur les bases de 
donn^es. C'est en effet la 
premiere caracteYistique de cette 
application, qui constitue un 
'Hypertexte', 

L'hypertexte est un programme 
permettant, en cliquant sur un 
dessin a l'ecran d'obtenir des 
informations plus detaillees sur ce 
dessin, et ainsi de suite. La firme 
Owl, flit la premiere a devoiler 
un produit de ce genre avec 
Glue, tile fut done ia premiere a 
raler lorsque Apple devoila son 
HyperCard. D'autant que le 
programme d'Apple sera distri- 
bue gratuitement, eh oui gratuite- 
ment, avec tous les Macintosh. 

Certaines applications deja 
rcalisdcs laissent entrevoir les 
utilisations de cet outil. L'une est 
un manucl de reparation de 
bicyclettes. Lorsque Ton clique 
sur une roue, on voit s'ouvrir une 
nouvelle fenetre detaillant la piece 
sur laquelle on a clique, et ainsi 
de suite. L'autre est le manuel 
d'utilisation de 1'HyperCard, qui 
se presente a l'ecran comme un 
bloc note illustre". On clique sur le 
titre d'un sujec, ou sur une 
information qu'on souhaite 
detaiJler et la page se toume pour 
afflcher la legon. Trcs joli. Rien 



d'^tonnant, si cet outil semble 
voue" a la recherche des millions 
d 'informations stock£es, par 
exemple, sur un CD Rom laser. 

CEnvre de Bill Atkinson, le 

pere de MacPaint. Apple 
HyperCard est en fait un 
programme de gestion de docu- 
ments utilisant des fiches (cards) 
et des piles (stacks). La program- 
matic rt consiste a etablir des 
relations entre cartes et piles grace 
a des 'boutons' (des zones sur 
lesquelles on clique a l'ecran). 
Ces boutons sont cre"£s simple- 
ment grace a un menu contenant 
des outils, il reste ensuite a 
definir Taction provoquee par un 
ciic de souris : l'ouverture d'une 
autre fiche, ou grace a un script 
(sequences de commandes d'un 
langage baptise" HyperTalk et 
comprenant une cinquantaine 
destructions) la mise en oeuvre 
d'une s£rie d'actions (les 
programmeurs noteront qu'on 
peut me me ouvrir alors une 
application, ou deboucher sur un 
programme 6crit en MPW, le 
langage de programmation 
d'Apple). 

HyperCard a deja suscite tout un 
fois onn ement de mini- 
applications baptisees stackware. 
Comme, par exemple, un guide 
touristique interact,!!. Bref, 
beaucoup de benefices pour pas 
grand chose, puisque HyperCard 
sera distribue, rappelons le, 
gratuitement. Le seul vrai 
probleme est que ce programme 
consomme a lui seul 360Ko 
d'une disquette, et que les 
fichiers qui incorporent beaucoup 
de graphiques sont encore plus 
voraces. Avec HyperCard, le 
standard minimum du Mac vient 
de passer a une configuration 
incluant au moins un disque dur 
de 20 Megas. Faute de quoi, on 
ne peut vraiment utiliser cette 
application geniale et dont on n'a 
pas fini de parler. 



Et ce n'est pas fini, car l'autre 
nouveautd d'Apple, le 
MultiFinder est lui particuliere- 
ment exigeant en memoire vive, 
Connu sous lc nom dc Juggler, 
ce MultiFinder est incorpore a la 
dcrniere version du Finder et 
repose sur les programmes Merits 
par Andy Hertzfeld sous le 
nom de Servant. II s'agit d'un 
commmateur d'applications int6- 
gr6 au Bureau du Macintosh. 

A la difference du Switcher, 
apres avoir clique deux fois sur le 
MultiFinder, les applications 
deviennent simplement des 
fenctrcs poshes sur lc bureau que 
Ton pent re"trecir par lem case de 
controle de taille. En dessous 
c'est toujours le bureau, On passe 
d'une application a l'autre en 
cliquant sur sa fenetre et son 
menu vient alors prendre place 
dans la barre des menus du 
Macintosh. Pratique, pour 
echanger des documents entre les 
programmes et lorsque les 
auteurs des programmes l'auront 
pr6vu, on pourra realiser une 
impression en tache de fonds. On 
peut ouvrir simultan€ment 30 
applications. 

A. condition de disposer de 
suffisammenl de memoire vive. 
Car, et c'est la que le bat blesse, 
il faut au minimum 2 Megas de 
memoire pour utiliser vraiment le 
MultiFinder (1 Mega est un peu 
juste, et 512Ko sont 
ddfinitivement insuffisants). Une 
seule solution : acheter des 
extensions de memoire. II y a de 
la ralerie dans fair... 

Autre aouveaute en provenance 
d'Apple : une imprimante bapti- 
see ImaKeWriler II LQ. La LQ 
dispose d'une resolution de 216 x 
216 points par pouce. Soit le 
double dc l'ancicnne Image 
Writer, et a peine moins que la 
LaserWriter (300 x 300 points 
par pouce). Cette imprimante 
matricielle de tres haute qualite 
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qui nc dispose eependant pas <Ju 
langage de description de page 
PostScript (comme la Laser) est 
vendue aux alentours de 13 000 
Francs HT. Dans le meme temps, 
la Laser a baisse" de plus de 20% 
passant de 49 900 F a 39 900 F 
HT. L'offre d'AppIe se resserre 
done. On attend pour les 
pruthains mois une impiimante 
laser de tres haut de gamme qui 
pourrait froler les 80 000 Francs, 
ct offrirait une resolution supd- 
rieure a 40U points par pouce, se 
rapprochant encore davantagc des 
machines d'imprimeTie profes- 
sionnelle. 

En bas de gamme de laser, on 
aftendait une machine Apple. 
Surprise, e'est General 
Computer qui l'a sortie. 
Baptisee Persona! Laser 
Printer, cette impiimante vendue 
2 600 dollars aux Erats-Unis 
pourrait arriver en France aux 
alentours de 26 000 Francs. Elle 
ne possede pas le langage de 
description de page PostScript (ce 
qui exclut acluellemetit de 
pouvoir I'utiliser avec le pro- 
gramme Illustrator d'Adobe). 
On peut eependant imprimer des 
documents r£alis£s avec 
PageMaker, qui s'est veritable- 
merit impose comme un standard 
dans l'edition electronique, dont 
nous allons parler plus loin. 

En attendant, on travaille bien 
6videmment chez Apple a toute 
une salve de nouveaut^s. On a 
ainsi entendu parler d'un Mac 
SE qui pourrait inclurc un ecran 
couleurs, voire la carte du Mac 
II avec un scul connecteur 
d'extensions, d'un SE, qui serait 
vendu, a 1' inverse, sans ecran, 
etc. II est sur qu'une equipe 
travaille sur un micro-ordinateur 
6quip£ d'un processeur 68030. 

On se rapproche peu a peu du 
pari de John Sculley, qui voudrait 
offrir un micro-ordinateur offrant 
une puissance de 100 Mips 
(Millions d'instructions par 
seconde), e'est-a-dire la puis- 
sance des volumineuses unites 
centrales d'aujourd'hui, el ce 
avant l'an 2000. 

Cote programmes, la demarche 
d' Apple de creer une filiale de 



fabrication de logiciels (dont elle 
pourrait toutefois devenir action- 
naire minoritaire) a suscitd 
quelques remous aux Etats-Unis. 
II s'agit en fait de contrebalancer 
la position dominantc de 
Microsoft. 

En Europe, une unite de 
programmes strategiques se 
charge d'aider les developpeurs 
de logiciels. On peut de"ja 
discemer les creneaux qu' Apple 
va tenter de favoriser. En premier 
lieu, bien evidemment, la 
publication 61ectronique, en 
second lieu, les lan gages de 
programmation. Et puis toutes les 
applications tirant parti de la 
puissance et des caractdristiques 
exclusives du Mac n. 

Ainsi, il faut s'attendre a voir 
encore davantage de logiciels de 
CAO et d'architecture. C'est que, 
comme le remarquait recemment 
une revue de CAO americaine, 
1'Eujope occupe dans ce domaine 
une position privilegide. Bien que 
le nombre d'architectes rapporte" 
aux habitants soit plus faible de 
ce cote-ci de TAtlantique. Enfin, 
seront privilegies tous les 
programmes scientifiques, 
permettant d'implanter le 
Macintosh dans des bureaux 
d'6tudes, ou au conirOle de 
production en usine. On n'a pas 
fini d'en voir. Et de toutes les 
couleurs, grace a la maree 
montante des ecrans polychromes 
pour le Mac II... 

Traitements 
de texte a gogo 

Tandis que les utilisateurs de 
Writer Plus continuent a se 
desoler des bugs sauvages d'un 
programme par ailleurs genial, 
Word s'est impose sur le 
marcbe. Peut etre pas pour 
longtemps. Car voici que 
WordPerfect, le geant du 
traitemcnt de texte sur IBM PC 
s'apprete a sortir une version 
pour le Mac qui va faire quelque 
bruit. Avec des macro- 
commandes, un verificateur 
orthographique et un dictionnaire 
de synonymes, le multi- 



colonnage a l'ecian, la cesure 
automatique, la generation de 
notes de bas de page, tables des 
matieres, d'index et de 
traitements d'idees. Et sunout la 
possibilite d'echanger des fichiers 
avec ceux cr£es sur les IBM, les 
Vax de Digital Equipment et les 
Data General. 



Emploi 



Vous utilisez un Apple 
II, un Mac ? 
Vous suivez I'evolulion 
de I'informatique ? 
Les nouvcaux produits 
nc vous echappent pas ? 
Par voire pratique de 
I'anglais vous etes au fait 
des nouvelles 
d'outre-atlantique ? 
Vous pauvez consacrer 
quelques heures a voire 
revue preferee ? 

Ecrivez a Editions Mev, 12, rue 
d'Anjou - 78000 Versailles 



Societe de Recherche/ 
Developpement en pointe 
dans son domaine (50 
personnes) offre 

Poste d'i n forma tiei en 

Bac + 2, 3 a 5 ans 

d' experience, dont un an 

minimum en micro- 

informatique pour : 

mise en place d'un rdscau 

Macintosh (AppIeTalk) ; 
developpement d'une base 

de donnees multi- 

utilisateurs sur 4U ; 
formation du personnel ; 
reponse aux besoms des 

chercheurs, 

Possibility devolution au 
sein du groupe pour un 
special] ste micro. 

Contact : Ste Clonatec, 
M. Mergui (1) 43 42 43 88 
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En France, Talor deja auteur 
d'un traitement de texte pour 
1TBM PC a developp6 Texlor 4 
pour lc Macintosh capable, lui 
aussi d'echanger des flchiers avec 
le monde MS DOS. Tcxtor vise le 
marc he des technicians avec un 
editeur de fonnules mathema- 
tiques et un tableur. 

Autre traitement de texte vedette 
outre Atlantique : Full Write, un 
logiciel avec multi-colonnages 
generations de "post it notes" 
qu'on peut 'culler' sur un 
document et systeme de dessin 
incorpore\ avec possibility 
d'habillage automatique d'images 
inegulieres par un un texte... 

Publication 
electronique : 
le grand deb at 

Du cots' de la publication 
electronique, on s'agite aussi 
beaucoup. Aldus a sorti la 
version 2.0 de PageMaker et 
travaille deja a une version 3.0 
encore perfectionn6e. LettraSet 
a sorti une version 4.0 de Ready 
Set Go!. On y dispose 
notamment d'un bureau a la 
presentation plus claire avec une 
main pour dcplaccr la page, lc 
trac6 de lignes diagonales, une 
palette de filets disponible par 
menus, un espacement eontrole 
entxe les mots, Id specification 
possible des ensures avec un 
dictionnaire d'exceptions, un 
glossaire, un veYificateur ortho- 
graphique, 1'habillage automati- 
que de dessins, etc. Quant a 
R a g T i m e , imports par 
ItalSoft, il s'offie deja une 
version 2 avec habillage des 
reserves, cre'nage, 40 trames de 
fond, une grille de construction, 
un traitement de texte avec cesure 
automatique algorithmique, un 
dictionnaire d'exceptions 
personnalisables, etc. 

Au sommet des programmes 
d'ddition, lc match s'annoncc 
passionnant entre PageMaker et 
XPress de Quark, vendu chez 
nous par P-Lng£nierie. Disons 
simplement en r6sume\ que 



XPress grace a sa creation 
obligatoire de "reserves" pour le 
texte ou 1'image peut etre plus 
facilement manipule par 
quelqu'un n'ayant aucune notion 
de mise en page, mais pour qui 
Ton a pre-defini des gabarits. En 
revanche, PageMaker qui 
accepre n'imporre on des textes 
ou des images, sans que Ton ait 
besoin de le specifier se revele 
souple et particulierement rentable 
aux mains d'utilisateurs 
imaginatifs. 

L'arriv^e de Scoop pourrait 
encore agiter ce nouvcau sccteur 
e.n plein rievelnppement et ou le 
Macintosh tient toujours le haut 
du pave". 



L'avenir ? 

L'annee 1 988 se re/velera cruciale 
pour Apple. Si la firme de 
Cupertino sait bien utiliser ses 
arguments et etendre ses 
positions dans des domaines ou 
elle est en pointe, elle peut 
profiter de l'instabilite instaurcc 




Amicalement & admirativement voire... 



par la rupture de standard du 
monde IBM. II ne serait pas 
etonnant d'assister dans cc debat 
a une alliance entre DEC (le 
specialiste num6ro 1 des mini- 
ordinateurs) et Apple pour faire la 
nique au giant IBM. On constate 
deja un grand nombre de 
connections realisees entre des 
Mac et des VAX de DEC. 
I. 'apparition de cartes permettant 
de relier les Mac aux rdseaux 
Ethernet (avec notamment le 
logiciel 3 COM Plus) est un 
signe important dans ce sens. 

Quant a AppleTalk, le reseau de 
connections d'Apple, il est 
aujourd'hui tout simplement le 
plus repandu au monde reliant 
entre enx qitelque 450 000 
Macintosh. L'avenir du Mac est 
done dans les r^seaux. On 
s'e"lolgne a grands pas de la 
machine des "travailleurs du 
savoir" vantee jadis par Steve 
Jobs. 

Et si e'etait la cle du succes ? 




Dans cette nouvelle rubrique, nous vous presentons une selection des 
questions/reponses echangees sur la messagerie dG CalvaCom. Notre 
boite a lettres : emp1 1 . 



7) Bonjour. *AR* - 14 I. 

De: Cedric NER0T (CN10) -02 sep 87 22h28 

Bonjour ) 

Enfin je Irauve 5 minutes pour faire expioser ma joie ! Pom's est sur 
Calva Hi Nous passerons rapfdement sur tout le bien que je pense de vous 
(L'heure de connexion ici bas nest malheureusement pas donnee !) pour 
arrivarama question... 

Envisagez vous de teiecharger les programmes de la revue via Calva, avec, si 
besoin est, dedommagement ? II semble en effct bien plus pratique, et bien plus 
rapide (pour ne pas dire : plus sur, avec les Posies nlcolses) de recuperer urt 
texte de cette facon que par une disquette soumise aux voies de fait po states.. 
Qu'en pensezvous? 



Merci. vous nous laites rosir... Nous pensons dans un premier temps mettre 
a disposition sur bibiiotheque CalvaCom des programmes mais nous 
refiechissons egalementa un projet plus large :la chosB est a i'etude. 
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4) Questions naives - 43 1, 

De; Patrick BARCZEWSK1 (PB46) - 04 aou 87 11H0C 

Bonjour a tous, et merci d'avance du temps que vous voudrez bien 
consacrer aux questions sulvantes qui vous semblerontsans doute 
bien Candidas. 

1 /UPGRADE 

Abonne a Pom's, je dispose des programmes suivants : 
1/ Minitel (disquette commandee avec voire numero 27) 
2/ Intcrpom's {disquette commandae avec votre numero 28) 
Je souhalie les mettre au niveau des versions decrites dans votre 
numero 31 , et vous commander le programme CLV_POMS. 
Urt tarii special est-il prevu ? 

2/ArriCI IAGC 00 COLQNNES 

Le serveurerwoie en ligne au minitel IB la commande qui te fait bascuier 
en mode 80 colonnes. J'ai des problemes pour restituer locafement un 
fichier sur lequel figure un tel passage. 

En d'autres term&s, en mode consultation de voire programme minitei. 
quelle est la sequence de touche qui permet de reproduire localement 
sur le IB cette commarvJe du serveur? 

3/FILTRAGE DES CARACTERES ACCENTUES 
Votre programme minitei, mode preparation de texte, avec lequel ce 
message est passe sur Cafvacom apres preparation sous Macwrite, 
semhle, comme vous pouv&2 le constater. avoir des dtfficultes a filtrer 
les caracteres accentues. Comment y remedier? 

Encore bravo pour ces programmes de comm vraiment utiles. 

Cordialement, 

Patrick Barczewski (PB46) 
1/UPGRADE 

Pourune question de droits d'auteur (modif IBM obligent), notis ne 
pouvons envisagerde tarifs speckux pour InterPom's, meme pourlss 
Sdeles... 

La nouvelh version Mac du programme Minitel dun" 27 est sur la 
disquette 31, en votre possession si vous etes atoms'. 

2/AFFiCHAGE 80 COLONNES 

Le Minitel passe en mode teteinformafique frangais par la sequence : 
FNCTTsuivideF. 

NB : Pour i'enregistrement de CalvaCom, CLV_POMS est pratique. 

3/FILTRAGE DES CARACTERES ACCENTUES 
Lg programme du 27 etait congu pour les serveurs Videotex ce qui 
explique vos difficvltes (qui dependent du type da Minitel). 
CLV_POMS resmit le problems... 



6) questions sur clv-poms -81. 

De: Gerard MARTZ (GM46) - 31 jul 8/ 1bh16 

Le programme clv-poms permet-il de receptionner egalement des 

fichier s binaires issus des bibliotheques ? 

Ce point n'est pas clairement expose dans I'article de pom's 31 ! 

Merci de me repondre en bal gm46 

Si vous ave? un Apple //, seuls les fichiers TEXTou EXE peuvent aire 
importes, mais la plupart des programmes en langage machine ou en 
Basic sont disponibles sous la forme d'un fichier TEXT EXECutable. 
Pour le Mac, vous importerez en priorite DhHex, fichier Basic qui 
ere' era /'application BinHex4. Avec ce programme et CLV_Poms. tous 
les fichiers sont recuperabies (Packit 3 egalement en bib vous sera 
utile pour certains}. 



1 ) TRANSFERT FICHIERS TXT EN RAM - 25 I. 
De: Francois MULLER (FM17)- OS aou 87 09h53 

Chars Amis 

Merci d'abord d'avoir ouvert une BAL pour commumquer avec vous. 
J'ai un peu avance depuis mon dernier courrisr (transfer! de 
fichiers TEXT en RAM).,. 

J'ai transforms le programme COPYBASFILES de Francois Dreyfuss 

paru dans le numero 20 de POM'S, 

Pour transferer des fichiers TX f en RAM il taut faire les Modfs 

suivantes: 

5 DIM L$(40), O$(40) 

155 P$=RIGHT$(L$(I),12) 

156 0$(IJ=LEFT$(P$,5) 
l64'BAS- = -TXT" 

595 PRINT -CREATE-R$;L${I);-,T TXT" 

600 PRINT - BLOAD , ;MM$;L$(l);",T TXT,A$ A00" 

700 PRINT -BSAVE-R$;L5(I);',T TXT,A$ A00.L ";0$(l) 

Tousce passe bien mais rapidoment j'ai le message - DIRECTORY 
FULL- 

Exemple:je mete 12 fichiers TXT en RAM etj'ai ce message.., 

Pourtant CAT/RAM me donne 

- BLOCKS FREE: 93 

- BLOCKS USED: 34 Ou est le probleme ? 
PS : que signifie le T15 a la ligne 90 ? 
Merci d'avance pour votre reponse 

Normal : Le directory est effsctivement saiure (pas le disque) car it 
nest compose que d'un bloc au lieu de quatre pour les fecteurs 
dassiques. 

Chaque bloc peu! contenii 13 fichiers sauf le premier qui contient 
des informations sur le support et sur le catalogue lui-m$me : il ne 
peutenrecevoirque tZ. 

Sur votre lecteur 5,25 pouces, le directory est saiure avec 5f 
fichiers : 

12+13+13f 13=51. 

La solution reside dans I'uiilisation de sous-directory tju/, eux, ne 
sont pas Smites en taitle : 

Pour en creer un : PRINT D$ m CREATE /RAM&OUS.CATJDIR" 
T15 signifie type directory, e'est equivalent a T$F et TDtR. 



4) Pom's - 4 I. 

De: David BENSIMON (DB25) - 14 sep87 12h11 

Votre revus est super super super !! 
Bravo et continuez avec cette qualite ! 

David Bensimon. 

Merci, nous en restons sans vox... 



4) Cordon MAC + MINITEL - 6 1. 

De: NUMERA (PN19) - 08 jul 87 21h07 

Bonjour 

Philippe C. m'a ditque vous pourriez me procurer un cordon 
MAC + /MINITEL Quel en est le prix et serait II possible d'en avoir 
un d'une longueur de 5 m environ si cene longueur n'est pas critique. 
En attendant impatiemmentde vos nouvelles... 
Je vous remercie d'avance..- 
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Nous pouvons eflectivement effectuer celts liaison qui vous 
coutera 300.00 f Franco. 



4) prog civ + pb e*prt -111, 

De: Olivier FAGES (OF17) - 04 Sep 87 00h27 

Bonjour, Je suis fidele l9cteur et ulsateur des PROGS de Pom's. En 
particular, CLV el MINBAS qui rn'aident a decouvrif CAIVACOM. 
Malsj'al despbs : 

1-Avec CLV, j'obtiens des fichiers en inverse et nun expluitables aveg 
AppleWorks, utilisahles avee AppleWriter (mais apras CONVERT!!). 
Y a-t-il urw solution a ce pb. 



Nous n'avons pas vos difficult^ avec noire AppleWorks quisemble 
indifferent au 'poids fort' des octets composants h itchier TEXT. 
Nous avons toutefois apporte una modification k CLV dans sa version 
1.0t. mais n'ayan! pas ie probleme, nous ne savons pas si est 
resob,,, 

2 solutions : 

- nous renvoyer voire disquette pour 4change, 

- nous telephonersi vous avez InterPom's pour telecharger !a nouvelle 
version, 

CalvaCom ne gers pas le retourmment du Minitel pourqu'il emerte 
a 1200 bauds, done, pas de solution immediate. 



2-CALVACOM incite a Exporter mais la 75 bauds est limitatif. Avec 
un minitel 1 B, votre genie, 1 Apple ser ie, ne peut-on pas faire plus vite 
(SANS modem} ou est-ce une limitation du serveur special minitel 
}e n"y cannais pas grand chose et compte sur vous ou un forum. 

olivier /of 17 




Pour cette premiere grille de mots croises de Pom's, nous vous proposons «n petit concours : soyez le 
premier a nous envoyer la solution et vous beneTicierez d'un avoir de 200,00 F sur les produits Pom's, 
pourquoi pas Ordico ?. . . 

Les possesseurs de la disquette ri'accompagnement pourront resoudre le probleme sur leur Macintosh 
grace a Implication - ecrite cu Turbo-Pascal par Roland Jost - presentee dans ces pages. 



Probleme 32 par Joelle Piard 




Effaeer Sauver grille n* 1 

' 1 r 

Imprimer Quitter 

Horkontalement 

1 - Pas tres bas 2- Reprises 

3- Parasites - Tout un sac, e'est pas epais 

4- Sur un arbre, mais pas un fruit - Pour les babies 

5- Pour un essai, e'est rate - Deux pour les Zazous 

6- Pour le coureur de fonds - Deux pour un parfum 

7- Sans ordre 

8- Roche rouge 

9- Plainte meJancolique - 
MaUYais pour la Yigne, bon pour bebe 

1 0- Possessif - Distant 

Verticalement 

1 - Ne pleurent pas entre les rails 2- Franchise 3- Toujours plus proches 

4- Courant - On peut y trouver le 8 horizontal 

5- Abreviation ec-urennee - Amere 6- Possessif - Pour tailler le 8 horizontal 
7- Subissant 8- Deux a Paris - Ne reconnaTtra plus 

9- Fut en Asie riineure - Une pomme grand sport - Oui 
1 0- Sur certaines tables - Poursuit sans courir 



3456789 10 
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e: 

3 



3 



Disquettes Apple ][ 


Macintosh 




Accompagnement 


CLV_Pom's - UOKo ou 8OOK0 


200,00 F □ 


CLV.Pom's 


200,00 F 


1 1 


A] 


[140Ko4 


60,00 F 


O 


Editeur Videotex - UOKo 


200,00 F □ 


Mac Raccouroi 


£00,00 F 


1 T 

Q 


A] 


[UOKo 5 


60,00 F 


□ 


E.P.E. 5.1 - UOKo 


200,00 F □ 


MacAstuces 


200,00 F 


1 — i 


A] 


[140Ko6 


60,00 F 


□ 


E.P.E. 5.1 -8OOK0 


200,00 F □ 


Mac 'A' 




80.00 F 


1 — A 

U 


A] 


[140KO7 


60,00 F 


□ 


Max (moniteur gtendu) ■ UOKo 


150,00 F □ 


Mac 'B' 




80.00 F 


i — 


A] 


[140KO8 


60,00 F 


□ 


BananaSoft-UOKo 


200,00 F □ 


Mac 'C 




80,00 F 


r — | 

u 


A] 


[140Ko9 


60,00 F 


□ 


Pascal - 14GKo 


80,00 F □ 


Mac 'D' 




80,00 F 


f — 1 

u 


A] 


[140Ko10 


60,00 F 


□ 


Max (moniteur etendu) - 140Ko 


150,00 F □ 


Mac E 




80,00 F 


r — 1 

u 


A] 


[ 140Ko 11 


60,00 F 


□ 


Dominos-UOKo 


80,00 F □ 


Mac V 




80,00 F 


1 — 1 


A] 


[ UOKo 12 


60,00 F 


□ 


COGO-HOKo 


200,00 F n 


Mac 'G' 




80,00 F 


1 — 1 


A] 


[UOKo 13 


60,00 F 


U 


Ludologic-UOKo 


80,00 F □ 


Mac 'H' 




80,00 F 


1 — 1 

□ 


A] 


[140K014 


60,00 F 


□ 


Ordico-UOKo 


200,00 F □ 


Mac f 




80,00 F 


1 — 1 

l_J 


A] 


[ 140Ko 15 


60,00 F 


□ 














A] 


[UOKo 16 


60,00 F 


□ 














Recueils Pom's 




Mac 17 




150,00 F 


1 — 1 

LJ 


A] 


[ 1 40Ko 1 7 


60,00 F 


□ 






Mac 18 




80,00 F 


1 — 1 


A] 


[UOKo 18 


60,00 F 


□ 


NumSro 1 (Revues 1 a 4) 


140,00 F □ 


Mac 19 




80.00 F 


1 — 1 


A] 


[ 140KO19 


60,00 F 


n 


Disquettes 1 a 4 


200,00 F □ 


Mac 20 




80,00 F 


1 — 1 
l_J 


A] 


[UOKo 20 


60,00 F 


□ 


Numero 2 (Revues 5 a 8) 


140,00 F □ 


Mac 21 




80,00 F 


1 — 1 


A] 


[UOKo 21 


60,00 F 


□ 


Disquettes 5 a 8 


200,00 F □ 


Mac 22 




80,00 F 


1 — 1 
l_J 


A] 


[UOKo 22 


60,00 F 


□ 


Nurn^ro 3 (Revues 9 a 12) 


140,00 F □ 


Mac 23 




80,00 F 


1 — 1 


A] 


[UOKo 23 


60,00 F 


□ 


Disquettes 9 a 12 


200,00 F □ 


Mac 24 




80,00 F 


1 — 1 
LJ 


A] 


[UOKo 24 


60,00 F 


□ 






Mac 25 




80,00 F 


1 — 1 
Li 


A] 


[ UOKo 25 


60.00 F 


□ 


reliures loilees 




Mar 26 




80,00 F 


—J 


A] 


'UOKo 26 


60.00 F 


□ 


pour 6 numeros, soil un an 


60,00 F □ 


Mac 27 




80,00 F 


1 — 1 


A] 


[ UOKo 27 


60,00 F 


□ 






Mac 28 




80,00 F 


1 — 1 


A] 


[ UOKo 28 


60.00 F 


□ 








Apple ][ 8OOK0 3'5 numero 29 


80 00 F □ 


Mac 29 




80 00 F 

vV|Vv 1 


1 — 1 
l_l 


A] 


; UOKo 29 


60 OOF 


□ 


Apple ][ 8OOK0 3'5 numero 30 


80,00 F U 


Mac 30 




80,00 F 


□ 


A] 


UOKo 30 


60,00 F 


□ 


Apple ij 8OOK0 3'5 numeio 31 


80,00 F □ 


Mac 31 




80,00 F 


□ 


A] 


: UOKo 31 


60,00 F 


D 


Apple 1 8OOK0 3'5 numero 32 


80,00 F □ 


Mac 32 




80,00 F 


f — 1 

□ 


A] 


[ UOKo 32 


60,00 F 


□ 


Revue n° 8 35,00 F □ 


Revue n°10 


40,00 F 


□ 




Revue n° 11 


40,00 F 


□ 


Revue n° 12 40,00 F u 


Revue n° 13 


40,00 F 


□ 




Revue n°14 


40,00 F 


U 


Revue n° 15 40,00 F □ 


Revue n°18 


40,00 F 


□ 




Revue n° 17 


40,00 F 


□ 


Revue n° 18 40,00 F □ 


Revue n° 


19 


40,00 F 


□ 




Revue n° 20 


40,00 F 


□ 


Revue n° 21 40,00 F □ 


Revue n° 


22 


40,00 F 


□ 




Revue n° 23 


40,00 F 


□ 


Revue n° 24 40,00 F □ 


Revue n° 


25 


40,00 F 


□ 




Revue n° 26 


40,00 F 


□ 


Revue n° 27 45,00 F □ 


Revue n° 28 


45,00 F 


□ 




Revue n° 29 


45,00 F 


□ 


Revue n° 30 45,00 F □ 


Revue n° 31 


45,00 F 


u 




Revue n° 32 


45,00 F 


u 



a. 



T3 

a 



o 
-a 
C 

E 



M 

B 

3 

u 

w 



Abonnernents pour six numeros a partir du . 

la revue seule 

la revue et les disquettes Apple ][ U0Ko-5' 1/4 
la revue et les disquettes Apple ][ 8OOK0 -3" 1/2 
la revue et les disquettes Macintosh 

la revue, les disquettes Apple ][ UOKo -5' 1/4 et les disquettes Mac 
la revue, les disquettes Apple ][ 8OOK0 - 3' 172 et les disquettes Mac 



225,00 F 
525,00 F 
625,00 F 
625,00 F 
925,00 F 
1025,00 F 



□ 

n 
□ 
□ 
□ 

□ 



Erwoyez ce bon et votre reglement h : Editions MEV - 12, rue d'Anjou - 7S0OO Versailles 

Norn : 

Adresse : 



Reglement par : Carte Bleue/VISA □ Cheque bancaire □ Cheque postal □ 

numero de la carte _ date d'expiration 

Montant _ _ , _ _ F Signature : 



Mandat □ 
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Cable-interface de communication Apple Minitel 

Cette liaison - decrite dans les numeros 27 et 28 de Pom's -est indispensable pour fare IxL^Lmer les programmes suivants : 
■ MlnBas pour Apple ][+, lie, //o+, lie eW/GS* : programme perrrets.-: =-=-;srf-^: = V - ';=', la restitution a loisir 

hors reseau, le stockage et/ou I'impression de copies d'ecrandu Mr :i -.■ i.a -.■ ■ :i - « :. -rH=:sssurunserveur,ces 
messages etant prepares a I'avance avec n'importe qua! programme cs r= n - -: '■ : : =- ~i : _: 5 dans lenumero 27 
de Pom's. 

• Minitel/1 pour Macintosh : programme identique a MinBas pour Apple ][, sveeenpkE «j rara-erifex de fexte pour la preparation 
et le stockage des messages sans sorb'r du programme. Programme pjb'.'.a z± - . - . '. " . - : 

• lnterPom's pour Apple ][+, lie, //e+, lie et //GS' : programme de telechargement ate Apple | Ma Apple j et Macintosh Ce 
logiciel autorise la transmission de n'importe quel type de fichier (systeme, texte, bir&re iss.; er ,?fc.=r: - Vodec du Minitel, 
Programme publie dans le numero 23 de Pom's. 

• lnterPom's pour Macintosh : memo programme, mas version Macintosh. Programme pubic das to men 25 be Pan's. 

• Tpom's pour Apple ][+, //e, //e+, lie et //qs" : programme de recuperation de r liii hl'^liwipii" m h iwin Tin 1 11 1 

texte. Voir page 53 du numero 30. 

• TPom's pour Macintosh : Identique a la version Apple ][. Voir page 42 du numero 30. 

1 ce programme est prevu pour fonctionner avec une carte Super Serie Apple ; le port se _ ~ . -. . - • . . - • 7 : ; = 
Toutefois. si vous desirez uliliser le port integre afin d'y connecter le Minitel pour d'autres apr zzi"? x — v: - :L: i 
Macintosh Plus. 

™ sur un Apple IIGS, TPom's tonctionne irtditleremment avec le port serie integre ou la carte Super Serie Anne. Pour comecser to 
port intcgrc du IIGS, utiliscz un cable pour Macintosh Plus, 

Je desire recevoir : cable Minitel/Apple ][+, //e, //e+, IIgs avec SSC a 225,00 F 

cable Minitel/Apple lie a 225,00 F 

cable MiniteVMacintosh 128 &512K0 a 225 :: r 

cable Minitel/Macintosh Pius, IIgs port integre a 225,00 F 

cable Minitel/IBM PC'" . a 225,00 F 

cable de liaison locale Apple ll/Uac/IRM™ * a 225,00 F 

"(preciser le type des deux machines a relier : Mac 512, Mac Plus, Apple lie He. IIGS. IBM PC ) 

' pour les envois par avion, ajoutez 15 F par cable. 

Envoyez ce bon etvotre reglement a : Editions MEV - 12, rue d'Anjou - 78000 Versailles 

Norn ; 



Adresse 



Recjlemenl par: Carte Bleue/VISA □ Cheque bancaire □ Cheque postal □ ManrJat O 

numero de la carte date d'expiration 

Montant , _ _ F Signature : 



Programme de transmission lnterPom's 

Ce programme decrit dans le numero 31 vous donne la possibilite d'echanger a distance via Minitei et en local des fichiers de texte 
entre Apple //, Macintosh et IBM PC™. Entre deux machines de meme type, tous les fichiers sont transferables : Applications, polices 
de caracteres, accessoires de bureau, commandes, documents graphiqucs etc. 

Je desire recevoir : lnterPom's pour Apple //, disquette 140Ko, 5'25 a 450,00 F 

lnterPom's pour Apple //, disquette 8Q0Ko, 325 a 450,00 F 

lnterPom's pour Macintosh, disquette 3'25 a 450,00 F 

lnterPom's pour IBM PC W a 450,00 F 

' pour les envois par avion, ajoutez 15 F pa; disquette. 



Envovez ce bon et voire reglement a ; Editions MEV - 12, rue d'Anjou - 78000 Versailles 

Norn : 



Adresse : 

Reglement par; Carte Bleue/VISA □ ** Cheque bancaire LJ Cheque postal □ Mandat □ 

numiro de la carte date d'expiration 

Montant ,__F Signature: 



Depoi l£g,al : septembre 1987, n u d'imprcssion 789441 




Je desire recevoir - sans engagement - votre 
documentation sur les cartes Speedisk™ 



hJDITL, 

Adresse.. 



L'anti-disque 

Speedisk™, 
la RAM Card a memoire permanente 

Rapidite Temps d'acces a: I'lnformation : 0,2 ms 
(100 fois plus rapide que les disques 

durs...). 

Par exempts : 

demorrage sur Basic. System en 3 s, 
AppieWriter disponibie en 6 peine 1 s. 

Fiabiilte Constituee de circuit CMOS a trcs 

faible consommatfan, Speedisk™ est 
aussi fiable que I'ordinateur lui-mSme. 
Elle est insensible 6 I'environnement. 

CapOCit© Speedisk™ est proposee en quatre 
versions : 

1 Mo CI 048 576 octets) 

334Ko extensible 6 IMo 

avec horloge compatible ProDOS 

(pour les Apple ](+, //e) ou sans (IIGS) 



Compatibility 



Prix 



100% compatible avec ProDOS (c'est 
un volume). Speedisk™ fonctionne sur 
Apple )(+, sur Apple //e et sur Apple 
IIGS. 

Lecteur de Pom's, vous ben6flciez 
d'une remise de 10 % : 



SP400 

384KO 
SP1C00 

1 Mo 



U00 



3591,00 
5391,00 



4122,00 
5922,00 



SP400H , 

384 Ko horloge 
SPT000H 

1 Mo horloge 6jjS£db" 

Garantle Speedisk™ est une fabrication 

francaise garantie un an par echange 
de la carte. 

Sane d'essai dans la revue Pom's n°31 



Vente par correspondence, Logma S.A, 

documentation, 12, rued'Anjou 
renseignements 78000 Versailles 

Tel: (1)39 51 24 43 

Speedisk™ est une marque deposee de 
Thot Informafique® - France 



Speedisk 



TM 



